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DIZIONARIETTO 


Nel numero 4 dell Aprile ’85 della nostra rivista, precisamente 
nella pagina conclusiva del concorso STRIKE, promettevamo a 
tutti i fedeli lettori che per motivi di regolamento avevano visti 
esclusi dalla partecipazione diretta allo stesso i propri programmi, 
che comunque avremmo in seguito, quale piccolo premio di 
consolazione, pubblicato i programmi ritenuti nonostante 

l'esclusione dal concorso più validi. 

Ogni promessa si sa è debito e da qùesto numero, grazie alla 
nuova iniziativa del listino siamo in grado di dedicare a parte dei 

lavori esclusi lo spazio che meritano. 




































































CRASH 


Quando un paio di anni or sono, un 
fratello (programmatore COBOL) 
acquistò un VIC 20, allora largamente 
pubblicizzato, mai si sarebbe immaginato 
che una «macchinetta» anche così 
piccola sarebbe riuscita comunque a 
mostrare le enormi capacità degli 
elaboratori e renderle comprensibili alla 
maggior parte della gente. 

Ricordo come grande fu la sopresa 
quando mi resi conto che con una buona 
conoscenza della matematica e con un 
po’ di ragionamento era possibile usare 
tranquillamente il computer, almeno per 
le applicazioni più semplici. 

Oggi il VIC 20 è in fase di progressivo 
declino, decretato dalla spinta dei modelli 
successivi della stessa casa produttrice e 
dalla concorrenza dei Paesi del Sol 
Levante (non solo quelli) con lo standard 
MSX; ma nonostante tutte le sue 
limitazioni rimane comunque una buona 
consolle per videogiochi. 


Il programma qui pubblicato non è 
sicuramente paragonabile ai videogiochi 
dell’ultima generazione, ma nella sua 
semplicità rimane in ogni caso molto 
godibile e divertente. 

Per gli ovvi problemi di memoria è, come 
al solito, diviso in due parti: la prima 
modifica i caratteri creandone di nuovi e 
richiama da nastro la seconda parte che 
contiene il gioco vero e proprio. 

Il gioco consiste nel riuscire a districarsi 
con la propria automobile in un regolare 
labirinto in cui sono disseminate alcune 
pillole energetiche, che aumentano il 
punteggio, e sfuggire all’auto «kamikaze» 
del pilota KILLER. La difficoltà maggiore 
consiste nel fatto che i movimenti della 
propria auto sono controllati dalla tastiera 
del VIC e nelle fasi più veloci del gioco le 
dita «s’intrecciano» spasmodicamente. 
Caratteristica degna di essere indicata è 
la routine in base alla quale il computer 
legge la posizione dell’auto del giocatore 
e conseguentemente muove la propria. 


STRUTTURA DEL PROGRAMMA 
CARICATORE 


5-20 Pulizia schermo, 

protezione dell’area di 
memoria in cui saranno 
allocati i nuovi caratteri 
e routine di 
caricamento da 
registratore realizzata 
in L.M. 

30-50 Carica i dati in L.M. per 

la procedura di 



AUTORUN e per la 
gestione dello schermo. 

60-80 

Carica i dati per la 
formazione dei nuovi 


caratteri. 

90-99 

Disegna un’automobile 
sullo schermo. 

100-110 

Procedura di 
caricamento della 
seconda parte. 

120-240 

Blocco di istruzioni 
DATA contenenti le 
routines in L.M. ed i 
caratteri. 


STRUTTURA DEL PROGRAMMA 

di caratteri e salto alle 


PRINCIPALE ; 

routines di 



visualizzazione del 


10-110 Pulizia dello schermo, 

labirinto e del 


selezione del nuovo set 

caricamento dei dati 
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C :RRSH F’ROORHriMH CRKICRTQRE 


5 PQKE36079,25 ; PRINT”."3I 
10 P0KE51,0 ; P0KE32 ,27 
20 PQKE35 , 0 : P0KE36 , 27 : CLR 
30 FORI-6912TQ6930 
40 READA : POKEI,A : NEXT 
50 SVS6912 
60 F0RW384TQ7439 
70 READA=POKEI,RiNEXT 
80 P0KE32,28 :P0KE36,28 = CLR 

90 PRINT'72)011 NIZIALIZZRZIONE Q.K.” 

91 PRINT”M»SERRCHINO FOR CRASH... 

92 PRINT' JOB /I— ~W- mm“ 

93 PRIN ( '■ _ / I —T ‘ 

94 PRINT” ” 

93 PRINT” MI IO IMI 1 MIO IH” 

96 PRINT” — ^ 1 ” 

98 PRINT”-” 


99 PRINTCHRSC3) 

100 P0KE631, 131 .'POKE632, 13 

110 POKEI98/2 : NEW 
120 DATA162,0,189,0 
130 DRTA128,157,0,28 
140 IIRTR189/0/129/ 137 
150 DATR0/29/232/208 
160 DRTR241/96/0 

170 DRTA04,124,84,16,16,186,254,186 
100 DATHI86,254,186,16,16,84,124,84 
190' DRTftl 4,220, 78,254,254, 78,228, 14 
200 DATAI 12,39,114,127,127,114,39,112 
210 DATA0,0,24,24,24,0,0,0 
220 DATA0,0,0,0,0,0,0,0 

230 DATAI70,85,170,85,170,83,170,85 

240 DATA0,0,0,0,0,0,0,0 

READV. 
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t !RSH PRGGRRmfì PRINCXPRLE 


10 PRiNT-rr 
100 P0KE36869,255 
110 GOSUB20000 : GOTO1010 
300 GETDS:P*PEEK<203>:IFP*64THENHfl=4:RET 
URN 
310 
320 
330 
340 
350 
360 
370 

400 

402 

403 
405 


IFP«51THENP=0:GOTG360 
IFP-36THENP-1:GGTO360 
I FP*=43THENP=2 : GOTO360 
IFP*. 44THENP*3 : GGTO360 
RETURN 

IFPEEK< R+M <P))*33THENRET URN 
HRaP:RETURN 
IFHB04THENB1 -B+M ( MB ) 

IFCN>0THENRETURN 
IFCN*0THENHB-4 : RETURN 
HV=INT < < B-VR+1)/22)-1NT < < R-VR+1)722) 

410 HX*B-fl-HV#22:CN*3 
420 IFRBS(HX)>RB3<HV)THEN450 
430 IFHV>=»0THENHB=0 : RETURN 
440 HB®1=RETURN 

450 II L HX>0THENHB»2: RETURN 
460 HB-3 : RETURN 
300 IFHR=4THENRETURN 
510 R1 *H+f1 < HR > : D S PEEK < R1 ) 

320 IFD=32THENRETURN 
530 IFB=3tTHEN560 
340 IFD«33THENHR=4: RETURN 
550 OV-i:RETURN 

560 POKESU,231:S=S+TE:POKESU,219 PO»PO-l 

570 P0KE214,3 : S*=STR$<S>:SL*LEN<Sf):PRIN 
TSPC(22-SL)MID*< S*,2,SL-1> 

560 POKESU;0iRETURN 

600 IFHB=4THENRETURN 
610 B1*B+M(HB): Ii^PEEKCBl ) 

620 IFD=320RD*»31THENRETURN 

630 OV*l : RETURN 

1000 GOTO6000 

1010 GGSUB10000 

1020 GOSUB1100:GOSUB1200 

1040 IFOV*lTRENI 700 

1050 IFPU*0 THEN1500 
1060 GOTO1020 

1100 XFHRO4THENP0KER, 32 - R*R 1 POKER, CH(H 

8 ) • PQKEA+CR,2 

1110 GOSUB300:GOSUB500 

1120 RETURN 

1200 IFHBO4THENP0KEB; UN : POKEB+CR, 7 B*Bt 
:UN-PEEK<B> : POKEB,CHCHB>:POKEB+CR,6 
1210 CN*CN-1 
1220 GOSUB400:GOSUB600 
1230 RETURN 

1500 GOSUB1100 :POKE214,15 :PRINT' ” ’SPC<16 > 
•BONUS'* 

1510 BO*TE#20:S=S+BO : TE=TE+5 
1520 PRINTSPCC16>B0 

1530 GQSUB3000 : FOR I =OTQ500 : NEXT ■* GOTO 101© 


1700 

1710 

1720 

1730 

1740 

3000 


GOSUB1100 

POKEB,32 ; POKER# 42 

GOSUB3200 

CA=*CR-l :OV=0; IFCR' 

GOTO1010 

FORSL=0TO20 


0THEN4000 


3010 
3020 
3830 
3100 
3110 
3120 
3130 
3200 
3210 
3220 
CR,4 
3230 
CR, 1 
3240 
3250 

4000 

4001 
4010 
4020 
4030 


POKESU,242 : FORS1*01040 :NEXT 
POKESU,245 :FORS1=0TO20:NEXT:NEXT 
POKESU,0 : RETURN 
FQRSL=0TO30 

POKESU,214 = FORS1 =0TO10 :NEXT 
POKESU,221 :FORS1*0TO10 :NEXT:NEXT 
POKESU,©:RETURN 
FORSL*15TO0STEP-1 
P0KE36878,SL 

POKESU+3,241 :FORS1*0TO9:NEXT:POKER+ 

POKESU+3,246 :FORS1*0TO9:NEXT:POKER+ 
NEXT 

POKESU+3,0 
P0KE36878,10-RETURN 

G0SUB310© 

PRINT'W 

FORS1-0TO18 

PRINT"H '* •* NEXT 

P0KE214,6 

PRINT' Wrtii FINE GIOCOSI !Bi‘ 

IFS>HSTHENHS=S : PRINT* JWMiMkPECORD 


PRI NT * ' SWKDJIOCHI RNCORR?" 

4060 PRINTSPC<7)"WCS/N]“ 

4070 P0KE214, 10 ; Sf*STR$(HS) : SL=LEN(SÌ : .> 

4071 PRINT' m ’SPC< 22-SL >MID*<S$,2,SL-1) 
6000 GETEcI : IFDt*"”THEN6000 

6010 I Fll|:= ' 'S*’THENò 100 
6020 IFIi$="N”THENPQKE 36869,240 : PRINT* 1 : 

: END 

6030 IFDS* * T3* THENRUN 
6040 GOT06000 


4040 


1 i 


f i 


6100 CR= 3 :s= 0 : TE =5 
6110 GOT 01010 
1000 © PRINT‘TISI 4 * CRftSH 
10010 PRINT "SI! IH!!!!!!!!!!!” 

10020 FORI= 0 TO 5 

1003 © PR I NT " ! < ■ *4 + ■ < ^ * 

10040 PRINT" ! +■! !+!!+»•+!!+! " 

10050 PRINT"!+!!+!!+!!+!!+!" : NEXT 
1 ©060 PRINT"! m k * ■ ( »■ ! '* 

10065 PRINT"!!!!!!!!!!!!!!!" 

10070 priht"ihs="te;trb< 10 >"Iìc"cr; 

1008 © PR I NT "«IWirSPC< 16 > * 'PUNTI *' 

10090 S«=STRf<s>:SL«LEN<S$):PRINTSPC< 22 - 
SDNIDf CSS, 2 , SL -1 ) 

10100 PR I NT ■ ■ mm 'SPC < 15 > * ‘RECORD * ' 

10110 PRINT"M"SPC< 16 >“PUNTI" 

10120 S*=STR$<HS):SL*LEN<Sf>:PRINTSPC (22 
-SL>MID$<S$, 2 ,SL“ 1 > 

10130 H“ 45 +VR:B= 453 +VR:UN =31 
10140 POKER ,28 :POKEft+CR ,2 
10150 POKEB, 2 ?:POKEB+CR ,6 
10200 HR= 4 :HB= 4 :P 0=150 :CN =20 
10210 PRI NTRETURN 
20000 E)IMW 3 >,CH< 3 > 

20010 VR= 7680 :CR= 30720 :CR= 3 : SU= 36874 : TE= 
5 :OV =0 

20020 RESTORE : FORI= 0 TO 3 : READM<I>,CH(I):N 


30 DRTR-22,27,22,28,-1,29,1,30 
20040 P0KE36878,10 
20050 RETURN 
REfiBV. 
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SEGA GRAPHICS 


di DA RE ALESSANDRO 


Questo programma permette di 

740-760 

Sposta il pennello 

disegnare, mediante joystick, usando 


(sinistra). 

come foglio lo schermo. 

770-790 

Sposta il pennello (alto). 



800-820 

Sposta il pennello (basso). 



830-840 

Disegna il mirino al posto 

NOTE ESPLICATIVE 


del pennello. 



850-880 

Incrementa le variabili x e 

100 

Salti alle SUBROUTINES 


y del mirino. 


di presentazione. 

890 

Cancella il punto in cui si 

110-190 

Ridefinizione caratteri. 


trova il mirino. 

200-260 

Preparazione schermo e 

900 

Ritorno a 280 se si è 


definizione variabili. 


premuto X. 

270 

Controllo del JOYSTICK 

910 

Disegna il mirino con 


1 . 


nuove coordinate. 

280-440 

Salti ROUTINES controllo 

940-980 

Disegna in obliquo 


funzioni. 


(destra-alto). 

450-480 

Disegna (alto). 

990-1030 

Disegna in obliquo 

490-520 

Disegna (sinistra). 


(destra-basso). 

530-560 

Disegna (destra). 

1040-1080 

Disegna in obliquo 

570-600 

Disegna (basso). 


(sinistra-basso). 

610-620 

Cancella lo schermo. 

1090-1130 

Disegna in obliquo 

630-660 

Cambia il colore del 


(sinistra-alto). 


pennello. 

1140-1290 

SUBROUTINE di 

670-700 

Cambia il colore del 


presentazione. 


fondo. 

1300-1330 

Musica. 

710-730 

Sposta il pennello (destra). 

1340-1570 

SUBROUTINE istruzioni. 


10 

Rtn 

Mtttitt«titttiti«tititt«HHRatitttt«Mtintt 

tintiti 

25 1 

RED « 

ti 

1 11 

Rtn 

ti 


ti 

26 1 

Rtn titttitititttttitititititttititititititttititttititittttttti 

12 

REn 

ti 

SEGA GRAPHICS 

ti 

22 1 

REn 


13 

REO 

ti 


ti 

100 

GOSLJB 1 1 40 :60SUB 1340 


14 

reh 

ti 

BT 

ti 

105 

REH ««ti DEFINIZIONE CARATTERI 

tittti 

15 

reh 

ti 


tt 

1 10 

PATTERNSti 1,"00103020FF 203010" 


16 

REn 

ti 

DA RE Al ESSANDRO 

ti 

120 

PATTEFNSti?,"10382CFD10!01010" 


12 

REn 

ti 


ti ; 

130 

PAT TERNSti 3,"080C 0EFF 0E0C0800" 


18 

REn 

ti 


ti 

140 

PAT TERNSti4,"080808082F3D1C08" 


19 

REn 

ti 


ti 

150 

PATTERNStiS,"2F3F1F0F12234180" 


20 

REn 

« 

Ui a G.Ga file* 6 

ti 

160 

RAT TERNSti6>"804123120F1F3F2F" 


21 

REn 

« * 


» 

120 

PATIÉRNSti?,"0182C4E8F0F 8FCFE" 


22 

REn 

ti 

CORDENONS (PNJ 33084 

u | 

180 

PATTERNStiS,"FEFCF8F0E8C48201" 


23 

REn 

ti 


ti 

190 

PATTERNStt3,"10101 AFE 10101000" 


24 

REn 

n 


ti 

195 

Rtn tttiti PREPARA?I ONE SCHERnO i 

ititi 
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2 m SCREEN 2,2:CLS 

210 X= 1 75 :Y=95 :Q = 1 iN* 1 0 

220 CHI OR Q, 15,C0»0)-C255,30),Q 

230 COLORO,N,CO,201-C255,191) , Q 

740 LINE CO,20)-C235,20),1 

250 SPRITE 0,CX+l.Y-5),1,0 

260 BLINE CO, 0) -C255, ?0 ), 1 , PF -CIIRSOR 1 

0,4 :PR INT CMR$C 1 21 ; "0R0U1” 

265 REO « ENTRATO IN FUNZIONE JOYST.a 

220 S1=ST1CKC1) 

221 REM tt SALTI OLLE UORIE FUNZIONI a 
280 IF SI = ì THEN 450 

290 IF SI=2 THEN 490 
30O IF SI=3 THEN 530 
310 IF S 1 =5 THEN 520 
920 IF SI=2 THEN 910 
930 IF SI-4 THEN 990 

m 

340 IF Gl=6 THEN 1040 

350 IF SI=8 THEN 1090 

360 IF ÌNKEY$="C" THEN 610 

920 IF INKEY4= "U 11 THEN 690 

380 IF TNKE Y $ S "B” THEN 620 

390 IF INKEY$=CHR$C281 THEN 210 

400 IF INKET$=CHR$C 791 THEN 240 

410 IF INKEY*=CHR$C30) THEN 220 

420 IF INKEY$=CHR*C3l) THEN 800 

430 IF INKEY $ -"N" THEN 830:REN C.P. 

440 GOTO 270 

445 REFI aaa DISEGNO C > AL TU J aaa 
450 Y=Y-1 -SPRITE 0,CX-4,Y-81,4,0 
460 IF Y=20THEN Y=21 
470 PSET CX,Y),Q 
480 GOTO 270 

485 REFI aaa DISEGNO C > SIN. ) aaa 
490 X=X-1:SPRITE 0,CX-8,Y-4)» 3,Q 
500 IF X=1 THEN X=2 
510 PSET C X, Y ), Q 
520 GOTO 270 

525 REFI atta DISEGNO C > DESTRO ) aaa 
530 X=X +i :SPRITE 0, CX-+1,Y-53, 1, Q 
540 I'F X=254 THEN X=253 
550 PSET CX,Y1,Q 
560 GOTO 270 

565 REFI aaa DISEGNO C > BOSSO ) aaa 
570 Y=Y +1 :$PRITE 0,CX-3,Y-13,2,Q 
580 IF Y=190 THEN Y=189 
530 PSET CX,Y3,Q 
600 GOTO 270 

605 REFI aaa CONCELLO SCHERNO aaa 

610 CLS:CURSOR 10,4:BUNE C0,0)-C?55,2 

# 

0),1,BF -PRINT CHR$C17) ; M CLS":BEEP:X=1? 
5 :Y = 95■Q=1:N-15=SPRITE 0,(X+l,Y-5), 1 ,Q 


:COLOR Q,15,C0,20)-C255,131),Q 
620 GOTO 260 

625 RED aa COdBIO COLORE PENNELLO aa 
630 Q=Q+1 

640 IF Q> 15 THEN Q=1 

650 BEEP -BLINE *0,03-C255,20),1,BF:CUR 
SOR 10,4 :PRINT CHR$C17)ì“CHONGE C. of 
DROUER " :PSET CX,Y),Q :COl ORQ,N, CO,20)- 
C255,191),Q :SPRITE 0,CX+1,Y-5),1,Q 
660 GOTO 260 

665 REFI aaa COFIBIO COLORE FONDO aaa 
670 N=N+ 1 

680 IF N>15 THEN N=1 

690 BLINE (0,0)-C255,20),1,BF:CURSOR 1 
0,4 SPRINT CHR* C 1 7 ) ; "CHONGE C. of POPER. 
" :BEEP:COLORO,N,C0.20J-C255, 191),Q 
700 GOTO 270 

705 RED aa SPOSTO PENN. ( > DEST. ) aa 
710 X=X+1 :IF X = 255 THEN X=254 
720 SPRITE 0,CX+1,Y-5),1,Q 
730 GOTO 270 

735 REN aa SPOSTO PENN. C > SIN.) aa 
740 X=X-1 -iF X=0 THEN X=1 
750 SPRITE 0,CX-8,Y-4),3,Q 
760 GOTO 270 

765 RE n aa SPOSTO PENN. C > 01TO ) a a 
770 Y=Y-1rXF Y=2R THEN Y=21 
780 SPRITE 0,CX-4,Y-8),4,Q 
790 GOTO 270 

795 REFI aa SPOSTO PENN. ( > BOSS.) aa 
800 Y=Y +1 : IF Y = 191 THEN Y=130 
810 SPRITE 0,CX-3,Y-l),2,Q 
820 GOTO 270 

825 RED aaa ROUTINE CONCELLO aaa 
830 SPRITE 0,CX-3,Y-4),9,Q 
840 BEEP-BLINb C0,0)-C255,20),1,BF:CUR 
SOR 10,4 ìPRlNT CHR«C17)j"RUB OUT POI NT 

il 

850 IF INKEY $=CHR$ C 28) THEN X=X+1 

860 IF INKEY*=CHR$C29) TtfEN X=X-1 

870 IF INKEY$=CHR$(30) THEN Y=Y-1 

880 IF INKEr*=CHR$C31) THEN Y=Y+J 

890 IF INKEY$ = ‘' THEN PRESET CX,Y):BE 
EP :X=X+1 

900 IF INKEY$ = * r X'* THEN SPRITE 0,CX+1,Y 

-5),1,Q:GOTO 260 

910 SPRITE 0,CX-3,Y-4),9,Q 

920 GOTO 850 

935 REFI a DISEGNO OBL, CDEST .-OLTO) a 

940 X=X + 1:Y=Y-1 

950 IF X-255 THEN X=254 

960 IF Y=20 THEN X = 2] 
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IL JOYSTICK DI PRECISIONE! 


Il JOYSTICK è stato realizzato avvalendosi di una 
nuova sorprendente tecnologia che oltre ad un 
accattivante design permette velocità e precisione 

straordinarie! 

Grazie alle dimensioni incredibilmente ridotte il 
JOYSTICK risulta più leggero e decisamente più 

maneggevole dei joysticks tradizionali. 

Un sistema di «interruttori» completamente nuovo 
permette il controllo del joystick in più punti e quindi 

più precisi cambiamenti di direzione durante 

Tutilizzazione. 

Il contenitore esterno è realizzato in ABS, in materiale 
plastico simile a quello utilizzato per i caschi da 
Football, che rende il joystick decisamente più 
resistente a qualsiasi tipo di sollecitazione ed antiurto. 

Le parti interne sono state realizzate invece in 
ACETAL (DELRIN) per fornire sempre più affidabilità 

Pulsanti di «Fuoco» su entrambi i lati in modo da 

permettere anche l’uso a due giocatori 

contemporaneamente. 

Per averlo subito inviare L. 22.000 (IVA compresa) più 
L. 1.500 (per spese postali) a mezzo vaglia postale o 
assegno bancario, indirizzandolo a TEXIM Italia S.r.l. - 

Via dell’Esperanto 71 -00144 ROMA EUR 

IMPORTATO DIRETTAMENTE DA TEXIM ITALIA S.R.L - VIA DELL ' ESPERANTO. 71 -00144 ROMA EUR 
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IL NUOVO JOYSTICK THE POWER STICK DELLA 
AMIGA CORPORATION È COMPATIBILE CON I 
MODELLI PIÙ DIFFUSI DELLE MARCHE 
COMMODORE, TOSHIBA, ATARI, SONY, SANYO, 

YASHICA, CANON, YAMAHA E TUTTI 

I SISTEMI MSX. 



















37P PSET CX,Y 3 , Q ;SPRITE 0 ,(X,Y- 8 J,7,Q 

1340 REO OH 1STRU?IONI tt« 

980 GOTO 270 

1950 SEREEN 1,1:CLS :COL0R4,15 

985 REH « DISEGNO DHL.CDESI.-BOSS. ) tt 

1960 CURSOR 11,3:PRINT "SEGO GRAPHICS 

990 X=Xt1 :T = 1 


1000 IF X-255 THEN X = 254 

1370 CURSOR 16,6:PRINT "By" 

1010 II- r = 19l THEN Y= ] 90 

1380 CURSOR 10,8:PRInT "00 RE 01 ESSANO 

1070 PSE T CX,Y),Q:SPRITE 0,(X,Y3,8,Q 

R 0 M 

1030 GOTO 770 

1390 PRINT :PR1NT " Uia G.Galitel 6 

1095 RED M DISEGNO OBL.(SIN.-BOSS.) 41 

COROENONS (PN3" 

10<10 X-X- 1 :Y =Y + 1 

1400 PRINT :PRI NT " 

1050 IF X-0 THEN X-l 

PREDI UN 

1060 IF Y=19J THEN Y=190 

TASTO 

1070 PSET CX,Y),Q:SPRIT£ 0 ,(X- 8 ,Y),5,Q 

*« 

1410 CONSOLE 16,7,1,0 

1080 GOTO 770 

1420 IF JNKEY*="" THEN 1420 

1085 REO « DISEGNO 081. (SIN.-01 TO) « 

1430 BEEPSPRINT :PRINT :PRINT "Questo 

1090 X=X~1:Y=Y -1 

pr o 9 t a (npn o permet te di dise 9 nnre 

110O IF X~0 THEN X«1 

usando 1 

1 1 10 IF Y = ?0 THEN T=2 1 

corne f o 9 1 ì o lo sche r pio . " 1 

1 1 70 PSE 1 ( X , Y ] , Q : SPR ITE 0, C X- 8 , Y -8 ) , r, 

1440 IF J NKE Yt - '* " THEN 1440 

, ij 

1450 BEÉP =PRÌNT :PRIN 1 :PRJNT :PRINT : 

1130 GOTO 770 

PRINT :PRI NT "Per DISEGNARE usa fi JOY 

11*10 REO t* il il PRESENTO? IONE ### 

STICK CI 3." :PRINT :PRINT "Per SPOSTARE 

1150 SCREEN 7i? ì CLS 

il pennellino SEN ?0 DISE-GNARE usa i 1 

1160 COLOR 10 , 4 ,( 0,01 (255,1913,4 

TOSTI CURSORE." 

1170 CURSOR 50,120:PRINT CHR$(17);"SEG 

1460 IF INK£Y$-"" THEN 1460 

0 GRAPHICS'* 

1470 BEEP : PRINT :PRINT .’PRINT :PRINT : 

1180 FOR T^5 TO 250 STEP 5 

PRINT :PRINT "Per CANCELLARE lo SCHERD 

1190 LINE ( 175,203-CT , 171 3 , 1 

0 usa * C*."SPRINT SPRINT :PRINT 

1200 NEXT T 

1480 IF INKEY 1 * = " " THEN 1480 

1210 BUNt C 48, 1 17 3 - ( 707, 1303, 1 , BF 

1430 BEEP -‘PRINT :PRINT :PRINT :PRINT : 

1270 COI OR 1 0 : CURSOF 50 ,170: PRIN T *’ SE GB 

PRINT :PRINT "Per CANCELI ORE un PUNTO 

GRAPHICS" 

prepii ’N’ e u-sa i TOSTI CURSORE per p 

1730 FOR T-0 TO 100:NEXT T 

osi7ionare il mi tino ,a questo punto p 

1740 FOR T-l TO 80 

• 

remi lo SP02I0T0RE , per RITORNARE a D 

1750 CIRCI E (175,1243,T,10,0.8,0,1 

ISEGNORE usa ’X 1 ." I 

1260 SOUND 1 ,C T + 1 PP +7, r 5 

1500 IF INK£Y*="" THEN 1500 

1770 NEXT T 

1510 BEEP :PRINT :PRINT :PRINT :PRJNT : 

1280 BL INE (48, 117 3- t. .1 , 1303,1, BF 

PRINT :PRINT "Per CAOBIORE COLORE del 

1730 COLOR IO :CURSOR- 8 ,J70:PPINT ’By 00 

FONDO premi »B»." SPRINT .‘PRINT "PER CO 

RE 0. “:SOIJND0 

DB I ORE COLORE del PENNELLO premili tas 

1735 RED h-Mm44 MUSICHETTA »**«« 

t o » V » . " 

1300 RESTORE 1310-'FOR U-0 IO 79:ptnn F 

1570 IF INKEY$="" ThEN 1520 

Q i F L :SOUN(' 1 , F Q, 1 , • Si II NI)7, F U*, I : j»Ot<Nl 1 i > 

1530 BEEP ^PRINT :PRINT :PRINT JPRINT : 

FQ*2,J 5 :FOR 0=0 TO ?5:N£XT O,U:SOLND0 

PRJNT :RRINT "Uuo f risedere le Istruzl 

1310 POTO 294,370,2:14,370,267,130,262, 

oni CS/N3 ?" 1 

330,720,777,220,277, 1 96,247,196,247,17 

1540 PRINT :PRINT :PRINT -'PRINT 

0,770,147,185,147,185 

1550 IF INKE Y$ = ‘'S ,, ThEN PRINT -'PRINT : 

1 320 'POTO 294,370» 75*4,970, 262,330,262, 

PRINT -PRINT : PRIN T :PRiNT :G0TO 1430 

390,220,277,220,277,13^,747,196,247,17 

1560 IF INKEY« = "N" THEN CONSOLE0,24,I, 

5,220,147,185,147,185,147,185,147,185 

0 .'COLOR 1,3:CLS.'RETURN 

1330 FOR T =0 TO ]00:NEXT T sRETURN 

1570 GOTO 1550 
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DAYKAR 


di OSVALDO CONTENTI 


Un gioco che definirei da «pirati 
interstellari» una sfida ed un azzardo 


continui contro il vostro elaboratore con 
attimi di suspense sino all’ultima mossa 


REGOLE E TASTIERA 

Digita il tasto <1> per visualizzare la 
tua combinazione: 
il DAYKAR è una scala completa 
1 -2-3-4-S-6 non necessariamente 
resa in quest’ordine; essa ti offre il 
massimo tributo, 350 punti. 

Altre combinazioni sono: 

1-2-3-4-5x250 punti 
1-2-3-4 x 200 punti 

1-2-3 x 150 punti 

1-2 x 100 punti 

1 x 50 punti 


Ma attenzione! se nella combinazione 
sono presenti più di 2 assi, il vostro 
punteggio sarà azzerato e dovrete 
cominciare da capo. 

Le stesse regole valgono ovviamente 
per il computer che «tirerà» sempre 
dopo di voi. 

Vince il DAYKAR chi per primo giunge 

ai 2000 punti 

P.S. 

Sarà molto difficile farsi pagare i tributi 
persi dall’elaboratore! 

Alla fine di ogni partita premi il tasto 
<P> per ricominciare. 



10 CALI CLEAR 
20 CALL SCREENU2) 

30 PRINT "#DAYKAR# 

DADO 1985" 

40 FOR L = 1 TO 1000 
50 NEXT L 
60 CALL CLEAR 
70 CALL SCREEN(2) 

80 CALL CHARW^SOCOEOFOFeFCFEFF") 

90 CALL CHAR(104,"FF7F3F1FOF070301") 
100 CALL CHAR(112 l ,, 80COEOFOF8FCFEFF"y 
110 CALL CHAR(120,"FFFFFFFFFFFFFFFF" ) 
120 CALL COLOR(9,3,2) 

130 CALL COLOR(10,11,2) 

140 CALL COLOR(11,11,3) 

150 CALL COLOR(12,14,14) 

160 CALL COLOR(3,2,16) 

170 CALL COLOR <4,2,16) 


180 

CALL 

COLOR (5 

,14,2) 





190 

CALL 

COLOR ( 6 

,14,2) 





200 

CALL 

COLOR ( 7 

,14,21 





210 

DEF M 

*A+B+C+D+E+F 





220 

ASSI* 

0 






230 

PU*0 







240 

PC*0 







250 

PRINT 

TAB(7) 

; " x a x a 

X a 

x a 

x a 

xa H 

260 

PRINT 

TAB(7) 

j. " h p h p 

hp 

hp 

hp 

hp" t 

270 

PRINT 

TAB(7) 

; "PUNTI 

UMANO 

0000": 

280 

PRINT 

TABI?) 

{ " x A X d 

x a 

x a 

x a 

x a 1 ’ 

290 

PRINT 

TAB(7) 

; "hp hp 

hp 

hp 

hp 

hp" : 

300 

PRINT 

TAB(5) 

: "PUNTI 

COMPUTER 

0000 


310 510*1 
320 N=50 

330 CALL KEY(0,K,S) 
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340 

IF S 

=0 THEN 330 


350 

IF K 

=49 THEN 370 


360 

GOTO 

330 


370 

FOR 

L=9 TO 24 STEP 3 


300 

CALL 

HCHAR < 7,L,120) 


390 

CALL 

HCHAR(13,L,120) 


400 

CALL 

SOUND 1 100,L*30,10) 


410 

NEXT 

L 


420 

RANDDMIZE 


430 

A* I NT 16*RND + 49) 


440 

B = I NT(6*RND + 49) 


450 

C = 1 NT (6*RND + 49) 


460 

D=1NT(6*RND+49) 


470 

E*I NT(6*RND + 49) 


480 

F = IN T(6*RND+49) 


490 

ON GIO GOTO 500,520 


500 

R = 7 



510 

GOTO 

530 


520 

R* 13 



530 

CALL 

HCHAR(R,9,A) 


540 

CALL 

SOUND(100,A*10,10, 

A#20,10,A*30 

10) 




550 

CALL 

HCHAR(R,12,B) 


560 

CALL 

SOUND(100,B»10,10, 

B*20,10,B* 30 

10) 



570 

CALL 

HCHAR < R, 15,0 


580 

CALL 

SOUND ( 100,C*10,10, 

C*20,10,C*30 

10) 



590 

CALL 

HCHAR { R,18,D) 


600 

CALL 

SOUND M00,0*10,10, 

D*20,10,D*30 

10) 



ÀIO 

CALL 

HCHAR ( R,21,E ) 


620 

CALL 

SOUND ( 100,E*10,10, 

E * 20,IO,E*30 

10) 

Jfa 




630 

CALL 

HCHAR ( R,24,F ) 


640 

CALL 

S0UND(100,F#10,10, 

F#20,10,F#30 

10) 



650 

IF N 

*309 THEN 660 ELSE 

670 

660 

ON GIO GOTO 870,1010 


670 

FOR 

C0=9 TO 24 STEP 3 


680 

CALL 

GCHAR ( R,CO, X) 


690 

IF X 

*49 THEN 700 ELSE 730 

700 

ASSI 

■ASSI+1 


710 

IF ASS1-3 THEN 720 ELSE 

730 

720 

ON GIO GOTO'1130,1170 


730 

NEXT 

CO 


740 

IF ASSI*0 THEN 750 ELSE 

770 

750 

CALL 

SOUND < 300,-8,0) 


760 

ON GIO GOTO 960,1100 


770 

ON GIO GOTO 780,800 


780 

PU-PU+50 


790 

IF N 

*54 THEN 880 ELSE 820 

800 

PC-PC+50 


810 

IF N 

*54 THEN 1020 


920 

FOR 

C0=9 TO 24 STEP 3 


830 

CALL 

GCHAR(R,CO,X) 



040 IF X = N THEN 1210 
850 NEXT CO 

860 ON GIO GOTO 880,1020 
870 PU-PU+350 
880 PUI=STRI ( PU ) 

890 FOR L = 1 TO LEN(PUI) 

900 M = ASC {SEGI(FUI,L, 1) ) 

910 CALI HCHARUO, (25+L)-LEN(PUI) ,M) 

920 NEXT L 

930 FOR MU*1 TO 5 

940 CALL SOUND(10,11O+PU,5,13l+PU,5,175+ 
PU, 5 ) 

950 NEXT MU 
960 GI0*2 
970 R = 13 
980 ASSI*0 
990 N*50 

1000 IF PU>*2000 THEN 1330 ELSE 420 
1010 PC=PC+350 
1020 PCI=STRI (PC) 

1030 FOR P=1 TO LENIRCI) 

1040 Q=A5C(SEBI(PCI,P,1)) 

1050 CALL HCHARU6, (25+P)-LEN(PCI) ,Q) 

1060 NEXT P 

1070 FOR MU*1 TO 5 

1090 CALL SOUNDUO, 11O+PC,5,131+PU,5,175 
+ PU, 5 ) 

1090 NEXT MU 
1100 R=7 
1110 ASSI*0 

1120 IF PC> = 2000 THEN 1350 ELSE 310 
1130 CALL HCHAR(10,22,40,4) 

1140 CALL SOUND(500,-5,0) 

1150 PU*0 
1160 GOTO 960 

1170 CALL HCHAR(16,22,48,4) 

1180 CALL SOUND(500,-6,0) 

1190 PC-0 
1200 GOTO 1100 
1210 N=N+l 

1220 ON GIO GOTO 780,800 
1230 CALL S0UND(500,587,2,740,2,466,2) 
1240 CALL 50UND(500,784,2,988,2,534,2) 
1250 CALL SOUND(1000,880,2,1109,2,1397,2 
) 

1260 CALL KEY(0,K,S) 

1270 CALL S0UNDI1,1760,20) 

1280 CALL HCHAR(RI,26,120) 

1290 CALL HCHAR(RI,26,32) 

1300 IF S=0 THEN 1260 
1310 IF K-80 THEN 220 
1320 GOTO 1260 
1330 RI-IO 
1340 GOTO 1230 
1350 !R1*16 
1360 GOTO 1230 
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ARCOBALENO 


Presentiamo un programma che, 
nonostante la sua brevità, sarà senz’altro 
molto utile a quanti desiderino 
«sbizzarrirsi» ed utilizzare nei propri 
programmi non solo i colori di base messi 
a disposizione dalle SPECTRUM. 
Mescolando fra loro i vari colori ed 
utilizzando il comando BRIGHT, il 
programma visualizza tutte le possibili 
gradazioni di colore ottenibili e di cui si 
può quindi usufruire. 

Una utility molto interessante dunque, da 
utilizzare prima di iniziare la stesura di un 
programma per determinare a priori il 
colore dei vari caratteri e/o degli sfondi. 




à 

mi 

3* ARCOBALENO 



*» 

3 

R E M 

# # 



* # 

4- 

REM 

** Z *-SPECTRUM 



* # 

**~ « 

REM 

** 16K x 46K 



* # 

13 

REM 

* « 



« * 

¥ 

REM 






BORDER 7 INUÉR5E 0 : 

FLR5H 

0 : uLS 





IO 


daBIN 0 10 10 10 1: LE T 

b 

-B 

IN IO IO 10 10 




20 

FOR 

E =0 TO 15 : READ X 

: POKE 

USR 

'■ a *■ + 

f , X ; NE XT f 




30 

DATA 

3 * fe> » d t b y 3 » b * d # b 




4-0 

C> M T M 

255.123,122,123, 

129 


12 

3,120 

» 255 





-t B 

FOR 

3=1 TO 20: PRINT 

RT 


, 0 

. * ■ M ! 1 • 

* m * 

RT g 

,31; •*! ** : NEXT o 



± "7 

F OR 

3=0 TO 31: PRINT 

RT 

i 


« * * • * * 

* M P 

RT 20,g; : NE XT g 




50 

F O R 

P = 0 r O "7: FOR i ==> 0 

TO 


7 

60 

UET 

a * = "AAAAAAAAAAAAAAAAAAA 





70 

PRINT RT 0,0: PAPER i 

; I » 1K 

0 ; •*©** 

; INK 0; PRPÉR 7; **<•*, 

i ; " 

j 

+ 

*• , PAPER 

p: INK 0 ; *' B ” , INK 

0 ; 


PR 

PER 7* 

; •“ C •* 

; p ; ■* ) * < 0R ight 0 ✓ 1 ì . 

m 

* 4 

* 

00 

POR 

a =2 TO 10; PRINT 

RT 

a 

, ì 

; INK 

» ; 

PAPER p;a*: NEXT 

a 



30 

FOR 

a =t 1 1 T O 19 : P> R I NT 

RT 


a f 


NèxT NK PRRCR p; BRIOMT l;a«: 

RT "PREMI UN THi 

TO PER CONTINUARE" 

110 FOR t * © TO 50© 

3.20 IE INKEY*< THEM GO TO 13 

126 HE XT t 

13© BCEP .81,-8: PRIHT hT Si , 0, 


1 » 

4 # 


NE X 


PAPER 


PAPER 7, 

4 * 

14- © PRI NT RT 


• 

m 

NEXT 

p 





~0 

TO 

30 : 

NEXT 3 



f 

a t 

TO 

2 1 : 

PRINT RT 

f 

, 0 

r 

= 0 

Ai Hi 

TO 

2 1 : 

PRINT RT 

f 

, 0 


11 E XT 
1 © . © 



15 0 PRINT RT 11.0: 

UN TASTO PER 
OH INC IRRE *• 

160 IF INKEYt»"" THEN BORO 

_ £? Ir 1 R D E R ^ = BORDER 3: BORDER 
■JRDER 5: BORDER 6. BORDER 7 
SE 1 : G O TO 160 
170 CLS RUN 

SO© STOP 


EH I 
R IC 


R 1 : 
4 : E 
PAU 


Pagine Speciali di LIST 


13 
















































































I L’INFERNO DI 
CRISTALLO 


i un r t. soo 

' ' ! t f f. M L ' 'H ! t 


u x re pER se 

* à 



Il programma ripropone fedelmente 
l’intreccio del famosissimo colossal 
«catastrofico» statunitense. 

Un terribile incendio è divampato in un 
grattacielo di cristallo e a causa di un forte 
vento si è esteso alle costruzioni attigue. 
Fortunatamente gli incendi non hanno 
ancora raggiunto gli ultimi piani dei 
grattacieli dando ad una parte degli 
occupanti la possibilità di raggiungere le 
terrazze e porsi, momentaneamente, in 
salvo. L’avanzata delle fiamme è però, 
purtroppo, inesorabile ed è necessario 
intervenire immediatamente e recuperare 
quanto prima i malcapitati. 

Ai comandi di un elicottero il vostro 
compito è dunque quello di recuperare 
quanti si sono rifugiati sulle terrazze e 
portarli definitivamente in salvo su di una 
piattaforma appositamente approntata, 
prima che l'incendio li raggiunga. 

Da ricordare che non è possibile 
trasportare sull'elicottero più di una 
persona per volta: nel caso infatti si cerchi 
di recuperarne più di una, ciò causerà un 
fatale incidente. 

Bisogna fare inoltre molta attenzione a 
non discendere troppo velocemente sulle 
terrazze e soprattutto a non schiantarsi 
contro i grattacieli. 

Nel programma è compresa una routine 
che influisce sul fattore difficoltà: man 
mano che il gioco procede, le fiamme 
tendono a raggiungere la cima delle 
costruzioni più velocemente, lasciando 
quindi meno tempo a disposizione per il 



pijin x. 0 l J xt e perse o 

X r F f.'HL 1 'Mìe 



recupero delle persone. 

A gioco terminato una routine per i 
punteggi record li aggiorna 
automaticamente e ne visualizza i primi 
quattro, offrendo la possibilità — proprio 
come nei videogiochi da Sala — di 
inserire il proprio nome nel caso che il 
proprio punteggio sia rientrato nella rosa 
dei migliori. 


Attenzione! Le lettere maiuscole 
inserite fra virgolette (“”) vanno 
digitate dopo essere entrati nel Modo 
Grafico (GRAPHICS). I 


L 0 

REM + 

-+ 4 4* 

-*• 

-*■ 4h it 

* >* 

♦ 

* # * 

+ ^4 ♦ 

+■ *■ 



12 

Fi’ E Mi * 

♦ *■ Jfr 







# 

* +- 


1S 

REM * 

ilf t f 



ir 4 P 

E 

pili * 


* 

» + 

-4 

13 

PEH + 

Kr *- 



D 

X 



*- 

* *- 

♦ 

2 0 

R E fi + 

*4 +■ 


1 ~ 

r ; i e. 

T 

ALL 

o 

♦ 

• * 


;£ : * 

R E M * 

*■ -p t 


mm w * 

m 

- 5 R 

E 

CTR 

* 1 r i 


• *■ 


2 5 

REM * 

+ %-■*- 


I 

6 f 


4- •-( 

K 

♦ 

*- t 

+■ 

3 0 

R E fi ♦ 

* *! ♦ 


L_ 

I 3 ‘l 


l*5 3 

5 


« -*■ 


3 cr - 

REM + 

-*■ + 







* 

-*■ 


^0 

REM * 



■ir 7 * 


+ 

■54 +- *■ 

54 ■+ + 


■p- 

-*■ 

SO 

R E fi 











0 

POKE 

2 -3 E* 1 

5 

S * |—| 








70 

P HIPEP 

S : 


BORCER 


1 : 

INh 



c 

S 0 

Q O 3E* 9000 









• 35 LET 0(s"LI 3T " : LET I* = "EF" 
36 C XH C$ (5,13» ; POR R = 1 TO S: 

LET L *. < R *3 TO i =” 00(300" NE * T 

R 

SS LET PU = 0 

0 LET yp» 0 : LET N * = “ * * 

100 LET UJ»7 LET E=10 GO SUB 

se 00 

10S PRINT RT 4- . 1; PAPER 0. "PREM 

r ,M F.PER GIOCARE" 

X 10 LET 2t=" 

P * RI_T !_■ L - BH5u Z 

= SINISTRA X = DESTRA 

RECUPERA LE PERSONE CRT GRhTT 

-77 
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PC 

LLH p 

O SCHERMO" 

150 PRIIJT Hi 


13 0 

14 0 


0 ; 


IN E 
J + 


O 


21 t — 2 $ <£ *=£ Tu 

.01.10: POR O 
0 1.10 

150 IF ÌNKEY* = ,, P" THE N 
160 GO X O 1£0 


0; zi 

* < i '• 


165 


M 


LE SU 

£6£0 

PRINT H T 

Tl £ f^ U M fi 

INK O . 

I i. 

DELL 

c*5 J0 

r e r u r r i 





.=■ •=* o 

REM 




i T O 

3 0 0 0 

REM q r at 

t à c x e 

f. o t n f 

1 h In fu 6 


3 0 O S 

R E r t 





30 10 

LET 1=0: 

LET 

C =C -1 


O 5 ; 

3 OdO 

F OR i i 

T O £4 

STEP 4 



3030 

IF HTTP 

» c , O i 

< 40 THEN LE 

TO 17 

1 = 1 + 

1 MEXT O 





304 O 

IF D>“£B 

THEN 

GO T O 

3 0 6 0 


iOSO 

PRINT MI 

C O ; 

IN 6 a, 



3 O E- O 

IF HT IR 

< C - 1 > 

O + 1) =41 

THEN 


« 4 


IT*© F-'em ■. *_■ o p p r i n c t p 
175 REM 

130 PPINT hT e . O 


165 PPINT RT 4 . 


i » 


19 0 
M 
£O0 
£ 10 
220 
£ 3 O 

, p, 

23S 
M L_ t 1 
c! 4 O 

ooo 

. o 


260 

000 

STO 

500 


O o o 


R*="LIST" : L ET REC=0: L 
= 0 : LET y =3 : LET X = 10 

PR INT RT Y , X . IHK O ; "EP" 

LET Cs22; 60 SUE 30ÓO 

F OR P * 1 TO 4-0 

PRIMI RT 0,0.; INK 0; "PUNTI 

li RT 0,15; "'.'ITE PERSÈ : " , UP 

PRINT RT 1,0. INK Q;"MITE S 

" ; N ■t 

IF INKEY$*"P" THEN GO SUB 1 

IF INKEY*»"L" THEN GO SUB 1 

IF INKEY$ — " Z '* THEN GO SUE- S 

I F IN K E *. % m ' ' X ' ' THE M G O S U E; S 

IF LEU N * + UP = U-J THEN GO TO 


85 IF 


V + l-21 THE N IF X > =27 
= 3D THEN IF M = 1 THEN GO 


i 


N IF X< 

U B 7000 

X F V P = 3 THE M 
NEXT P 
G O o U B 

*3 O T O k=: O 

R E M 


GO TO r*0 00 


290 
3 O O 
310 
9 90 
1000 
100 3 
1005 
L O 1 0 
L020 
1 0 3 0 
10 4- 0 

14 90 
1 S O 0 
1B 0 3 
1505 

15 IO 
= 4-1 


i r» 


-± i_ t o 


REM m o v i m é t i t r, 

r e h 

IF V=2 THEN RETURN 
PR I NT RT V , X ; 

L FT V -y _ l 

PRINT RT i.-. INK o;I* 

RETU R 14 

REM 

PE M l»i O V i fu t; n t O 1 ft b =i £ £ O 

REM 

IF V=£0 THEN RETURN 
IF M = O THE r I I F hTT R ( V + 1 
OR RTTR <V +■ 1 . X + 1 > =4 1 THEN 


'* i 

L E 


r i = i 


. l 


10 


PU=PU+100 






5 100 

R ET 

URN 



TU 1600 



*5 ‘,9 9 O 

R É fi 



ISIS 

IF fi = 1 THEN IF RTTR (V + 1 

» 

X ) 

6000 

R E fi 

t* o 

n s 

= 4 1 

OR RTTR (V + 1 , < «- 1 ) =4 1 THEN 


L E 

bOOS 

R E M 



T UP 

*UP + 1 : 6EEP - 1 . -20 



60 10 

F O R 

N = 

1 T O 

15 J0 

IF HTTP (V + 1 , X + 1> =40 OR 

HTT 

NE XT 

o 



R (Y 

+ 1 , X + 1 :* =42 THEN GO TO SOOO 


*3 0 £ 0 

pr ir jt 

RT S 

15 4 0 

IF H I TP i V + 1 , X i = 4 O OR RT 

T 

R 





IV + 1 

. X) =42 THEN GO TO SOOO 



U 5 4 4 * L 

IJ + 100 


1 <3 0 0 

PRINT RT Y ,Xi " 



S O £ S 

LET 

R U 

s= p U + 

1610 

L. ET V =Y + 1 



eo 3 o 

LET 

I l .J 

m li. 1 + 

isso 

PRINT RT V .X; INK O ; I* 



0 0 4 0 

F O P 

G = 

1 T O 

ì e 3o 

RETURN 







1 y 9 0 

R E M 



f_t 0 5* Iy3 

LET 

E m 

E + 1 : 

£000 

REM fuo*♦.*■ i m e n lo a lini s t r 3 



S 0 0* 0 

G o 

T * 

£10 

SOO 3 

R E fi 



6 990 

R E M 



2005 

LET I4= n EF" 



7000 

REM 

v/ i 

t i£ f 

solo 

IF M=0 THEN IF RTTR (V,X 

— 

i ;< 

T OOS 

R E M 



= 4 1 

THEN LET M=l: BEEP .1,10; 


L E 

70 10 

LET 

N % 

= r i 4 + 

T P U 

= F‘ U+lOO: GO TO 2100 



O 




o s o 

IF X=0 THEN RETURN 



702O 

LET 

f“l - 

0 

£030 

IF M »1 THEN IF HTTP (V , X 

— 

i :• 

70c:5 

BEEP , 

1 . 10 

= 4 1 

THEN LET UP=UP+1: BEEP .1 

.* 

— £ 

7 0 _T|0 

R E T U R M 






7990 

REM 



0 




•ri* 0 0 0 

R E M 

c O 

LUI 

.9 0 4 0 

IF HTTP (Y,X- 1) =*40 OR HTT R 

1=1005 

R E M 



CV . X 

-li=42 THEN GO TO SOOO 



S O 1 0 

POR 

Q = 

0 T O 

£10 0 

RR INT HT Y , X ; 41 



P . 1 , 

O : 

NE < 

T O 

SI IO 

LET X=X-1 



© 0 £ 0 

P R I NT 

rt e 

. 1 . - ■ o 

PPINT RT V,X. INK O; I* 



EP 1 , 

" ORME 

O U E R 

1 3 O 

RETURN 







S 4 O 

REM 



•3 0 3 0 

F OR 

u = 

1 TO 

250O 

R E M f*« o v/ ì in « n t o a d e s t r a 



Tu 4000 





R E r t 


« i 


IF M=0 THEN IF RTTR CV , ! 

THEN LET 1-1 = 1 6EEP ,1,10 
p l_l = P U f ÌOO li- i i T > i 2 •£> 0 0 

2 5 2 ò E F < = 30 THEN RE TURI I 
SS SO IF fissi THEN IF RTTR ir . 

= 4 1 THEN LEI Hp=UP+ l EEEP 
O 

£54 0 I F RTTR • ,' , > + S* = 4 O OR RT T P 
' . =4 THEN GO T O Q O O 

seoo PRIMI RT Y . * ; " 

£610 LET >= X♦1 


L E 


1 


C - 1 
307 0 

3 OSO 
3990 

4 QOO 
4 00 ^ 
4 OOS 
4006 
NE XT 


LET 

* * 


1 , -IO ; 

, o + 1 ; * ‘ 

NE XT O 
R E TIJ R f I 
REM 

R E M p- u n t. e g -q i 

R E M 

CLS 

FOR O m 1 Tu «:0 

o 


B 

*J P = U P + 1 : PRI NT HT 


i eco* 


• 0 1 


, o 


4030 IF PU ; URL i ^ . ,1 
INPUT * INSERISCI IL 
L X I IE lH % 

4 0 4 0 LET O * = (0$ + # 1 


S TO * THEN 

TUO NOME : " ; 


* * 


4 045 FOR R = 4 TO 1 5TEP - 1 
4050 IF Hi 1 'ni C * ( R.S TO J 
LET C $ ( R -f 1 il *Ct (Ri : LET C$ ( 


T O 5 


THEN 
> *0$ + 


. * i * 

f < M 00000 M < 


T O 6 

-LEM STRI 

p u :* 

i + TR$ P u 

4055 PRINT RT 

4 

» 4 » 

PRPER 1; 44 

B E 

S T 

R E C O 

R 

P 3 

« w 


-4 O *£• O 
4070 

4 o e o 

1 1E X 7 H 

F O R M - L T 
PRINT HT 

o 

4 

+ © 4 7 

1 ; PAPER 

1 , C ^ 


1 ; 


(R) : M E XT 
4-000 P R IN T R T 15 
I G I Q CARE Hfi*_ ORh 
4 100 I F INK EY * = ■* 

TO © <9 

4 HO ÌF INKEYt="N" THE M STOP 

4 1SO GU TO 4- ÌOO 


POP 

THEN 


*. *l * Ti 


G U 


i *=» 4 O RF(t 

3000 RE I I £ > h è f rii i.i 

R E fi 

F O R O>0 T O £7 5 T E P 4 

LET Z =E + < INT • RMD* 7 * i 
FOR G=21 TO Z 5TEP -1 


5 O O 5 
5 O 1 0 

*_• i » 

s o s o 

SO 3 0 

S O 4 O 

s oso 
s 0 e, o 


PR If IT RT 
NE XT G 
PPINT RT 
N E XT O 
5070 PRINT RT 
5060 PRINT **1 
";PU;RT 0.16 
5090 PRINT Mi 
hLUhTE ".M$ 


G,O, INK O;" 

G,O + li INK 1 


* c :■ 


* * * ■* 


i « 


21,26 . INK "7 _ 

O,0; INK "punti 

"'.'ITE PERSE " ; UP 
1,0. INK o;"u 


i i 


so 


0 1,0 

1 ; "60N 


ÌOO : M 

•3 O S U 6 


I i_i 

ooo 


v>* 


i » 1 _ri i . t 


L E T P U = P U + 1 0 


0 


FLH 


- 1 
3H 1 

X T O 


PHP 


b *_* 


*3 ^ 0 REM 

9000 REM set c ai r atteri 

9 0 0 S REM 

*=<0 10 F O R i_i - 0 T Q 4 *7 


PE hC 


P O H E 


USR * * H * * +0.2 NE XT O 


0 0 G ■ h X* H E- 6* _* 5 & * 1 Ft* ■ w 5 4 P E* c* « 1 ir.* 4 2 5 

4 » 4 0 , £ 5 5 1 *5 1* , 1 E* 3 * 2 55 55 , £ S 5 , 1 *3 3 * i Fi 3 

* c! 5 3 * ►“ 5 *4 .i 1 ^ o m *4 0 1 *4 4 .* 1 E* 6* * t 1 5 4 É tt** 1 6 *4 

,* ef * 1 d. 1 ♦ i 1 j •' * 7 ( i 1 *4 -_3 » tu’ *3 . ^5 S * X 

£ 7 ì 1 * 15 * 9 * 5*7 i 1 £ * * * 1 £ 7.6 3,254 « 1 2 8 . 

2 £ 4 . £ £ 4 .£41 * £ 4 
9030 RETURN 
9 9 ^ 9 R U I I 




+ *—. — 
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DESIGNER 

di OSVALDO CONTENTI 

Nelle fascinose vetrine alla moda dei 
negozi d’arredamento non campeggiano 
solo splendidi e funzionali mobili da 
designer, da tempo il computer 
arredatore è un complemento essenziale 
per chi voglia porgere alla clientela un 
servizio adeguato ai problemi del buon 
arredo d’un appartamento. 

Maggiori sono le richieste in questo 
senso da parte di chi già dispone di un 
mobilio completo, e a questi non rimane 
altro che affidarsi agli studi di architetti 
che in ogni caso non sono teneri nel 
presentare le parcelle di consulenza 
tecnica. 


E allora che fare? Non preoccupatevi... il 
vostro amico LIST ha un terminale per 
ogni vostra esigenza e col programma 
DESIGNER potrete comodamente 
sbizzarrirvi nel cercare la soluzione 
logistica desiderata. 


IL SET DI ARREDO 

Il programma prevede, dietro vostra 
richiesta, l'immissione automatica su 
schermo di poltrone, divani a 2 e 3 posti, 
tavoli rettangolari, quadrati, tondi, tavolini 
da salotto, librerie, pareti, sedie, mobili 
standard, fioriere, in più l’assemblaggio 
dei vari componenti può dare adito a 
diverse forme quali: tavoli ovali, letti, 
tappeti, strutture asimmetriche, il tutto 
accompagnato da un simpatico contorno 
musicale. 


TASTIERA E FUNZIONI ] 

RETTANGOUVRE DISPOSTO 


IN VERTICALE 

CON 1 CURSORI STABILISCI LA 

premi Q PER TAVOLO QUADRATO 

COORDINATA DI INSERIMENTO DEL 
MOBILE 

premi T PER TAVOLO TONDO 
premi W PER TAVOLINO DISPOSTO 

I VI %/ 1— ^ 1 1 » Lbt ■ ■ m 

IN ORIZZONTALE ■ 

premi Z per cursore a sinistra j 

premi E PER TAVOLINO DISPOSTO IN 

premi X per cursore a destra 

VERTICALE 

premi G per cursore in alto 

E ANCORA... 

premi V per cursore in basso 

| PER OTTENERE POLTRONE 0 

premi R PER LA LIBRERIA 

i DIVANI... 

premi A PER LE PARETI 


premi S PER LE SEDE 

premi 1 per POLTRONA 

premi D PER 1 MOBILI STANDARD 

premi 2 per DIVANETTO A 2 POSTI 

premi F PER LA FIORIERA 

P premi 3 DIVANO A 3 POSTI 



IN CASO DI ERRORE: 

QUINDI: 

premi C PER CANCELLARE UN 

premi 1 PER POLTRONA O DIVANI 

CARATTERE 

i CON SPALLIERA A NORD 

premi B PER CANCELLARE 

premi M PER POLTRONA 0 DIVANI 

CON SPALLIERA SUD 

L’INTERA SUPERFICIE 

NOTA BENE 

premi J PER POLTRONA O DIVANI 

• IL COMPUTER RISPONDERÀ CON 

CON SPALLIERA OVEST 

UN BIP BASSO QUALORA IL MOBILE 

premi K PER POLTRONA O DIVANI 

DESIDERATO ANDASSE FUORI 

CON SPALLIERA EST 

DALLE MURA ORIGINALI, SENZA 

PER OTTENERE 1 TAVOLI... 

STAMPARE NULLA. 9 

premi 4 PER TAVOLO 

• LE TACCHE E 1 NUMERI IN ALTO E 

RETTANGOLARE DISPOSTO 

A DESTRA DELLO SCHERMO j 

IN ORIZZONTALE 

SEGNALANO 1 METRI DELLA 4 

premi 5 PER TAVOLO 

PIANTINA RESI IN SCALA. 
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USATE 1 CARATTERI-PARETE PER 

• LA POSA DI UN MOBILE VA 

DELIMITARE UNA PIANTA PIÙ 

CALCOLATA DAL CARATTERE AL 

PICCOLA. 

MARGINE SINISTRO IN ALTO. 


1 CALL CLEAR 

49 CALL COLOR(7,14,16) 

2 CALL SCREEN (11) 

50 CALL COLOR (8, 14, 16) 1 

3 PRINT "DESIGNER 

51 CALL COLOR(9,5,16) 

DADO 1985" 

52 CALL COLOR(10,9,16) 1 

4 FOR T*1 TO 1000 

53 CALL COLOR(11,15,16) 

5 NEXT T 

54 CALL COLOR(12,13,4) 

6 CALL CLEAR 

55 CALL HCHAR(R,2,40) 

7 CALL SCREEN(16) 

56 CALL HCHAR ( 1, C,4 1 ) 

8 R = 4 

57 CALL HCHAR(3,4,96,27) ] 

9 C = 5 

58 CALL HCHAR(24,4,96,27) 

10 A$="FFFFFFFFFFFFFFFF" 

59 CALL VCHAR(3,4,96,22) 

il CALL CHAR(40,"C0F0FCFFFFFCF0C " ) 

60 CALL VCHAR(3,31,96,22) 

12 CALL CHARMI,"FFFF7E7E3C3C1818") 

61 FOR T*5 TO 31 STEP 2 

13 CALL CHAR(64 "071F3F7F7FFFFFFF") 

w 

62 CALL HCHAR(2 , T,98) 

14 CALL CHAR<65,"E0F8FCFEFEFFFFFF" ) 

63 NEXT T 

15 CALL CHAR(66,"FFFFFF7F7F3FIF07") 

64 FOR T*4 TO 24 STEP 2 

16 CALL CHAR(67,"FFFFFFFEFEFCF8E " ) 

65 CALL HCHAR(T,3,97) 

17 CALL CHAR(68,"003C7E7E7E7E3C") 

66 NEXT T 

18 CALL CHAR(69 , Af) ! 

67 X = 49 

19 CALL CHAR<72, M 7EFFFFFFFFFFFF7F." ) 

68 FOR T=5 TO 21 STEP 2 

20 CALL CHAR<73,"00FFFFFFFFFFFF" ) 

69 CALL HCHAR ( T , 3, X ) 

21 CALL CHAR(74,"7E7E7E7E7E7E7E7E") 

70 X«X +1 

22 CALL CHAR(75,"1E1E1E1E1E1E1E0C") 

71 NEXT T 

23 CALL CHAR(76,"787878787878783") 

72 CALL HCHAR (23,3,48) 

24 CALL CHAR(77,"0000007FFFFF7F") 

73 Y*49 

25 CALL CHAR(78,"007FFFFF7F") 

74 FOR T=6 TO 30 STEP 2 

26 CALL CHAR(B0,"0C1E1E1E1E1E1E1E") 

75 CALL HCHAR(2,T,Y) 

27 CALL CHAR(81,"3078787878787878") 

76 Y*Y+1 

28 CALL CHAR(82,"00FEFFFFFE") 

77 IF Y*58 THEN 78 ELSE 79 

29 CALL CHAR(83,"000000FEFFFFFE " ) 

OD 

II 

03 

1^ 

30 CALL CHAR(84 t "001F1F1F1FOF0F10") 

79 NEXT T 

31 CALL CHAR(85,"00F8F8F8F8F0F008") 

80 CALL KEY( l ,K,S) X 

32 CALL CHAR(86 , "100F0F1F1F1F1F") 

81 IF S*0 THEN 80 ' 

33 CALL CHAR(87,"08F0F0F8F8F8F8") 

82 ON K + l GOTO 175,167,165,169,159,162,2 

34 CALL CHAR(88,"000000797E7E7E7E") 

04,86,90,137,142,152,206,193,171,181,199 

35 CALL CHAR(89,"7E7E7E7E79") 

,187,147,83 

36 CALL CHAR(90,"0000009E7E7E7E7E") 

83 D«1 

37 CALL CHAR(91 , "7E7E7E7E9E") 

84 CALL SOUND(100,932 , 5) 

38 CALL CHAR(96 , Al) 

85 GOTO 94 

39 CALL CHAR(97 , "55") 

86 D*2 

40 CALL CHAR(98,"0080008000800080") 

87 CALL SOUND(100,932,5) 

41 CALL CHAR(104,"FFFFC3DBDBC3FFFF") 

88 CALL SOUNDdOO, 1109,5) 

42 CALL CHAR(112,"66FFFF6666FFFF66") 

89 GOTO 94 

43 CALL CHAR(120,"C3E766181866E7C3") 

90 D = 3 

44 CALL COLOR(2,7,16) 

91 CALL SOUNDdOO,932,5) 

45 CALL COLOR(3 , 13,16) 

92 CALL SOUNDdOO,1109,5) 

46 CALL COLOR < 4 , 13, 16) 

93 CALL SOUNDdOO,1245,5) 

*7 CALL COLOR(5 , 12,16) 

94 CALL KEY(0 , K , S) 

48 CALL COLOR (A - i* « * » 1 

95 IF S=0 THEN 94 k 
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96 IF K=73 THEN 101 I 

152 IF (R>22)THEN 173 

97 IF K = 77 THEN 110 

153 IF 029 THEN 173 ' 

98 IF K*75 THEN 119 

154 CALL HCHAR(R,C,64> 

99 IF K = 74 THEN 128 

155 CALL HCHAR(R,C+1,65> 

100 GOTO 94 

156 CALL HCHAR(R+1,C,66) 

101 IF C>(29-D> THEN 173 

157 CALL HCHAR(R+l,C+1,67) 

1 102 IF R*23 THEN 173 

158 GOTO 80 

103 CALL HCHAR(R,C,84) i 

159 IF 029 THEN 173 

104 CALL HCHAR(R,C+1,73,D) 

160 CALL HCHAR(R,C,69,2) 

105 CALL HCHAR(R, C + D+1 , 85 ) 

161 GOTO 80 

106 CALL HCHAR(R+l,C,75) 

162 IF R>22 THEN 173 

107 CALL HCHAR(R+l ,C+l ,72,D) 

163 CALL VCHAR(R,C,69,2) 

108 CALL HCHAR(R+l,C+D+l,76) 

164 GOTO 80 

109 GOTO 80 

165 CALL HCHAR(R,C,68) 

110 IF C>(29 — D)THEN 173 

! 166 GOTO 80 

111 IF R=23 THEN 173 

167 CALL HCHAR(R,C , 96) 

112 CALL HCHAR(R,C,80) 

168 GOTO 80 

113 CALL HCHAR(R,C+1,72,D) 

169 CALL HCHAR(R,C,104) 

114 CALL HCHAR(R,C+D+1 ,811 

170 GOTO 80 

115 CALL HCHAR(R + l ,C,86) 

171 CALL HCHAR(R,C,32) 

116 CALL HCHAR(R+1,C+1,73,D) 

172 GOTO 80 

117 CALL HCHAR(R+l,C+D+l,87) 

173 CALL SOUNDUOO, 110,5) 

118 GOTO 80 

174 GOTO 80 

119 IF R>122—D)THEN 173 

175 IF C=30 THEN 80 

120 IF C*30 THEN 173 

176 C=C+1 

121 CALL HCHAR(R,C f 77) 

177 CALL HCHAR(1,C-1,32) 

122 CALL VCHAR(R+1,C,72 f D) 

178 CALL HCHAR(1,C , 41 ) 

123 CALL HCHAR(R+D+l,C,7B) 

179 CALL SOUND(-10,0+150,10) 

124 CALL HCHAR(R|C+!,90) 

180 GOTO 80 

125 CALL VCHAR£R+l f C+l,74,D) 

181 IF C*5 THEN 80 

126 CALL HCHAR(R+D+l,C+l,91) 

182 C*C-1 

127 GOTO 80 

183 CALL HCHAR(1,C+1,32) 

128 IF R>(22—D)THEN 173 

184 CALL HCHAR(1,C , 41 ) 

129 IF C-30 THEN 173 • 

185 CALL SDUND(-10,0*120,10) 

130 CALL HCHAR(R,C,88) 

186 GOTO 80 

131 CALL VCHAR(R+l,C,74,D) 

187 IF R=4 THEN 80 

132 CALL HCHAR(R+D+l,C,89) 

188 R=R-t 

133 CALL HCHAR(R,C+1,83) 

189 CALL HCHAR(R+l,2,32) 

134 CALL VCHAR(R+l,C+l,72,D) 

190 CALL HCHAR(R,2,40) 

135 CALL HCHAR(R+D+l,C+l,82) 

191 CALL SOUND(-10,R*30,10) 

136 60T0 80 

192 GOTO 80 

137 IF (028) THEN 173 

193 IF R*23 THEN 80 

138 IF R>22 THEN 173 

194 R*R+1 

139 CALL HCHAR(R,C,69,3 > 

195 CALL HCHAR(R-l,2,32) 

140 CALL HCHAR(R+l,C,69,3) 

196 CALL HCHAR(R,2,40) 

141 GOTO 80 

197 CALL SOUND(-10,R*40,10) 

142 IF (R>21)THEN 173 

198 GOTO 80 

143 IF 029 THEN 173 

199 FOR T=4 TO 23 

144 CALL VCHAR(R,C,69,3) 

200 CALL HCHAR(T,5,32,26) 

145 CALL VCHAR(R,C+l,69,3) 

201 CALL S0UND(-10,T#30,T,T*50,T,T*70,T) 

146 GOTO 80 

202 NEXT T 

147 IF (R>22)THEN 173 

203 GOTO 80 

148 IF 029 THEN 173 

204 CALL HCHAR(R,C,112) 

149 CALL HCHAR(R,C,69,2) 

205 GOTO 80 

150 CALL HCHAR(R+1,C,69,2) 

206 CALL HCHAR(R,C,120) 

151 GOTO 80 1 

207 GOTO 80 _ 
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SIMULATORE DI VOLO 


di MASSIMO TRUSCELU 

Sfruttando le buone capacità grafiche del 
SEGA SC-3000 è stato creato un 
orizzonte mobile che obbedisce alle 
manovre eseguite dal «pilota» attraverso 
il joystick. 

Il programma si suddivide in varie fasi: 
Fase decollo 
FASE CROCIERA 
A.P. (Avvistamento Aeroporto) 

FASE ATTERRAGGIO 
La durata della fase di decollo è sempre la 
medesima, contrariamente alle altre fasi 
in cui il computer determina 
arbitrariamente la durata ed il successivo 
passaggio ad una «schermata» diversa. 


Le difficoltà sono numerose: 
il consumo di carburante (FUEL); a bassa 
quota (ALTITUDE), si corre il rischio di 
schiantarsi al suolo mentre una quota 
eccessiva non permetterà di «picchiare» 
abbastanza decisamente ed atterrare 
prima della fine della pista; 
l’assetto di volo se non sarà 
perfettamente orizzontale non permetterà 
di poter atterrare «sani e salvi». 

Per ogni atterraggio compiuto verranno 
assegnati altri quantitativi di carburante 
per così riprendere il volo verso nuove 
avventure. 


SIMKLBrORE DI VOIJO 


SEGA SC-3000 


» • 



1 10 

CLS:SCREEN 2,2:CLS 


40 

CURSOR20,20 :PRINT M S1dULATOR" 

20 

COLORI,15,(0,0)-C254,191),15 


50 

BEEP2 

30 

CURSOR30,10 *PPINTCHR$C12)J"F 

LIGHT" 1 

60 

FOR T=200 TO 5000 STEP50:SOUNO1,T,1 
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5:NEXT T 

70 POR R-15TO0STEP-.1 :SOUND1,200,R:NEX 
TR 

80 CURSOR20) 90:PRI NT "PREd I UN TASTO" 

90 X$=INKET$:IFX$="" THEN 30 
100 CLS:C0L0R5,5,C0,01-C254,90),5 

110 n=l:A=70 

120 U=U+1000 :(1=n + 3 :O=A + 30 :CL5 

130 LINE (0,90)-C254,90),1 

140 CURSOR30,10:PRINT"FASE DECOLLO FD" 

:BEEP2 

150 CURSOR30,20:PRINTCHR$C16);"FUEL 
: " ;U 

160 CURSOR130,20 :PRINT"ALTI TUDE :";Q~B 
170 FOR L=0TO5:GOSLJB 410:NEXT L 
180 X-0:BEEP0 
190 CLS 

200 CURSOR30,10:PR1NTCHR$C17)J"FASE CR 
OC IERA FC":BEEP 
210 FOR 2=1 TOH 

220 T=]NTCRNDt1)*A):S=1N1CRNDCì)*CT-X) 
/6) 

230 FOR B=X TO T STEP SUF S=0 THEN S= 

SGNCT-X) : IF SO0 THEN230 

240 IF S=0 THEN 260 

250 GOSUB 410 :NEXT B 

260 X=T:NEXT 2 

270 CURSOR40,40 :PRI NTCHR$( 17) ;"A.P." 
280 FOR T=1TO500 :NEXT T 
290 S=INTCRNDC1)*C-X)/2)ilF S=0 THEN S 
=-l 

300 FOR _B=Y TO 0 STEP S^GOSUB 410:NEXT 
B :B=0 
310 CLS 

320 CURSOR30,10:PRINTCHR$(17);"FASE AT 
TERRAGGIO":BEEP2 

330 FOR L=0TO5+ INT CRNDC 1)*30): GOSUB 41 
0 

340 IFQO0 THEN 380 
350 IFXO-1 THEN 380 

360 CURSOR30,10:PRiNTCHR$C17);"ATTERRA 
GGIO 0K2 " :BEEP2:BEEP2:P=P+1 
370 FOR T-l TO 1000:NEXT T :GOTO 120 
380 NEXT L 

390 CURSOR50,10:PRINTCHR$C17) ; "F INE PI 

STA2. . . " :BEEP1 sM= INTCM-^23 

400 FOR T =1 TO 500:NEXT T:GOTO 180 


410 P1=STICKC1):Jl=STRIGCi) 

420 IF Pi-1 THEN X=-6:U=U:GOTO 520 
430 IF P1=5 THEN X = +6 :U=U-20:GOTO 520 
440 IF PI=7 THEN X1=X1+2 :X2=X2-2:X=-1 : 
U=U-1:GOTO 520 ! 

450 IF P I-3 THEN X2=X2+2 :X1=X1-2:X=*1 : 
U=U-1:GOTO 520 

460 IF PI-4 THEN X2=X2+2:X1=X1-2:U=U-1 
0:X=+3:GOTO 520 

470 IF P1=6 THEN X1=Xl+2:X2=X2-2:U=U-1 
0:X=+3:GOTO 520 

480 IF P1=8 THEN X1=Xl+2:X2-X2-2:U=U-3 
:X=-3:G0T0 520 

490 IF PI=2 THEN X2=X2+2:X1=X1-2:U=U-3 
:X=-3iGOTO 520 

500 IFJ1 = 1THENX = -1 , 

510 IFP1=0ANDJ1=0THEN410 | 

520 Q=Q + X :IF U>0 THEN 620 

530 FOR L=Q-B TO 0 STEP-6 

540 CLS:CURSOR20,10:PRINTCHR$C17);"CAR 

BUFANTE ESAURITO":BEEP 

550 CURSOR 40,40 :PRINTCHR$(17);L 

560 NEXT L 

570 FOR T-l TO 10 :CLS:CURSOR30,50 
580 PRINTCHR$C 17) ; " — **<< BOOn >>**--" 
:BEEPl:NEXT T 

590 CURSOR 40,100 *PRINTCHR$(16);P;" AT 

TERRAGGI2":BEEP0 

600 X$=INKET$: IF X$ = ""THEN600 

610 CLS:END 

620 IFQ<B THEN570 

630 IFQOB THEN660 j 

640 U = LI♦ 1 :1 FUI< = 2 THEN 660 
650 CLS:CURSOR 20,80:PRINTCHRJC16);"EH 
ERGENCY LANDER 0K2":P=P+1:U = U+INT CRNDC 
1 )*500) 

660 CLS 

670 01=90+ C C Q-B) + CX2)):Q2=90+C CQ-B3 + CX 
1 ) ) 

680 JFQ1>190THENQ1=190:GOTO 710 
690 1FQ2>130THENQ2=190:GOTO 710 
700 LINEC0,Q1)-C255,Q2),1 
710 CURSOR40, 20:PRINTCHR«C 16) ;"PIJEL 
: " ;U 

720 CURSORI 40,20 :PRIN1"ALI ITUDE:" ;Q-B 
730 IFQOB THENL) = 0 
740 RETURN 
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ARCHIVIO SHARP 

Le note esplicative sul funzionamento del 
programma sono contenute in alcune 
REM del programma stesso. 


di FERDINANDO URTOLER 

NB: nelle REM 

« 63 » = Utilizzo del solo computer 
«68» = utilizzo MZ-700 e reaistrH 


rem — 

20 rem titolo programma 

30 RFM ===- 5SSSBS 


40 REFI - Ah^HIUIO SHARP • 

'|0 fi SS*SSSa 3 SSSM«S85KS 

00 REM - • AUTORE ■ 

70 REM ■ 

83 PFM URTOLER FERDINANDO 

90 REM ~~ UIA SOLFERINO 8 

100 RFM =■--=■ 40100 MANTOVA - 

i10 PFM === 

120 REM - - 
130 REM 


140 REM 63 PRESENTA? IQNE 
1 50 PRINT* 1 - INSER 

IMENTO DATI fflffi 2- RI 

CE?IONE DATI 


160 LìETQ -1 EQ=0THEN1 60 

170 IF Q=2 GOTO 350 

180 REM 63 IN^rRIMFNTU DATI 

190 INPUT" BGUANT I ARGOMENTI Ut IO I ? ” ;A=DI 

MBÌ(A) “-PRINT SPRINT :EP[NT ' A-FINE":PRI 

NT 

200 FORX 1TOA:PRINT :PRINTX;" ARGOMENTO: 
* ; : INPiJTBif X) :NFXT X :PR INT"B" 

210 DIM rir 300 ,A) 

220 t i M :PRINT:FORX=1 TUA:FRINTBiCX)5 : IN 

F J i|Tf $r I , <7 : If fit r,X) ’ l " THE N260 

230 IF 5IZF <100 THEN PRINT' MEMORIA TFRM 

[NATA- 1 :GOTO280 

240 NEXTX 

250 GOTO220 

263 NEXTX : PRINT”D" 

.70 PFM 68 PROrFDURA DI REGISTRAZIONE 
.83 PRINT PROCEDURA D f REGISTRAZIONE ' 

. A3 INPUT “NOME 1 li E? ' ;Di :PRINT‘PREMI PI 
CORD" 

.•10T' REM 1_8 CREAZIONE F li E FD INSERIMENTO 
Uh] f MZ-700>REG. 


310 UOPENLii 

320 PRINT/TA,T:FQRX 1TpA :PR1 NT/T BÌCXJ :N 
<TX :PORC=l TQ r :FpRF | r ■ RINT/TCÌCC,F .) : 
NFXTF :NEXTC.:C10SE : p PINT PROEEOUR 

A TERMINATA" 


ì jOF'Jh ASDF- ! :O3000:NFXTASDF : UOTO150 
340 REM 68 RICERCA FILE 

353 PRINT'S NOME FILE " ; : INPUTDiSPRINT"G 


31 * 


ffiffiffifflffiffiffiffiffiffiffi PREMI P:At" 

160 POI 1 FNU4 3IN r ' 9RBBBBBBHHHL4EIH0Iillfll)IB 
BUBfflfflfflfflffifflF ! LE PROVATO" 

370 RFM 68 INSERIMENTO DATI REG. >MZ- 7 
380 INPUT/TA, i :OIM B4iA):DIM F$(T,AJ: 

NT "Biffi 1 AB E i i » : ; ì : UH 3 FI DA TI : " ;A» t ; 1 HH0H 7 1 

MPO : * ; ; NT l A* Y * . 3U‘ 628) :F ORX 1 TOA : ! NP IT T 
Si CX ) : NEXTX :FORC= I TOT :FORI” = 1 TOA : 1NPUT* T; 

1 C » F 1 : N| X1 F : NE X TC 
390 CI OSF 

430 REM 63 LITI. IZZO DATI 

410 PR l -R K ERC 


A 

TO 

RCA+STAMPA 

TATO+STAMPA" 

420 GFT UFR : IFUER=0THFN420 
430 RFM 63 SUDDIUISIONE OPZIONI 
440 ON UFR GOTO 460,580,620,640 
450 REM G3_ RICERCA 
460 PRINT"0" 


tfl 2=L J STA 
ffi 3-RICF 
ffi 4-L rs 


470 PRINT"NUMERO SCHEDE :";Y 
480 PRINT" SELF?IONE PER:" 
j 490 FORX=ITOA:PRINT,X,Bi(X):NEXTX:MUSIC" 
A" 

500 GETT:IFT=0THEN500 
510 PR INT "19" 

520 PRINT"ffiffi":PRINTB$(T); : INCUTE $ :IFE* = " 
i i"THEN460 

530 EORX-1TOT :IFCiCX,T)=E$GOSU8560 
j 540 NEXTX 
550 GOTO520 

1 560 PRINT :PRINT:F0RC-1TOA:PRINTB4CC) 

; Ci C X » C ) ; NEXTC :MLJSIC ,, E" :RETURN 
1 570 REM 63 LISTATO 
580 PRINT"0" 

590 FORX-1 TOT :FORC=1TOA:PRINTBiCC): M ;C 
$CX,C):NEXTC:MUSIC"E":PRINT:NEXTX 
600 END ' 

610 REM 63 PLOT ON 

623 PLOT ON:GOTO460 

630 REM 63 LISTATO+STAMPA 

640 PRINT"®':FOR X»1TOT:F0RC-1TOA:IFC=IT 

1HENPC0L0R3 

650 IFCO 1 THENPCOLORO 

660 :PRINTB$CC);C$CX,C):PRINT/P:PRIN 
TxP :PR]NT/’PCiCX, C ) :PRINT/P :PRINT/P :PRINT 
: NEXTC : MUSIC t -'CORSO -1 TO10:PRINT^P :Nf XT 
SO :PRINT :PRINT/P •- ------ 


" :NEXIX 
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DRINK COMPANY 

; di MASSIMO TRUSCELU 

Vi siete mai chiesti come vive e quali sono 
i problemi di una ditta che produce una di 
quelle bevande tipicamente estive che è 
contenuta proprio nel vostro cocktail? 

Il programma per il Commodore 16 
presentato di seguito è una simulazione 
abbastanza fedele dell’andamento delle 
vendite di due marche concorrenti nel 
campo delle bevande dissetanti, che si 
svolge nell’arco di 6 mesi e presenta 
difficoltà di vario tipo come la stagione 
fredda, un aumento improvviso ed 
inatteso delle vendite, un calo delle 
stesse ed infine un andamento normale. Il 
gioco consiste nel pianificare la 
produzione ed il costo sperando di essere 
abbastanza validi dal punto di vista 
concorrenziale con la rivale 
POMMODORÈ 16. Alla fine di ogni mese 
viene visualizzato sullo schermo il 


consuntivo dell’esercizio ed alla fine del 
gioco il risultato finale e di conseguenza il 
vincitore. 

La grafica del gioco è piuttosto scarna in 
quanto, come già accennato nello scorso 
numero, la quantità di memoria RAM 
disponibile per i programmi scende a 
poco più di 2 KBytes se si usa uno dei 
modi grafici del sistema. 

Per ogni mese viene richiesta 
l'introduzione dei dati riguardanti il 
numero delle confezioni prodotte ed il 
costo di ognuna di esse; 
successivamente il computer associa, 
sulla base dei dati introdotti, le valutazioni 
sull’andamento, tenuto conto del periodo 
in cui si svolge la pianificazione. 

Il programma si compone di una serie di 
routines che si richiamano una con l’altra 
conseguentemente all’elaborazione di un 
numero casuale indicato dalla variabile X. 
Senz’altro non è un gioco che brilla per 
dinamicità ma mostra, nella sua fattura, 
una buona simulazione della realtà. 


0-7 


8-11 


12-15 


16-21 


STRLT 


Inizializzazione del 
programma, schermata di 
presentazione e salto alla 
routine contenuta nelle 
linee da 8000 a 8004. 
Visualizzazione della 
prima parte delle 
istruzioni e salto alla 
routine contenuta a 
partire dalla linea 8100 
Visualizzazione della 
seconda parte delle 
istruzioni e salti alle due 
routines già 
precedentemente 
descritte. 

Richiesta d’introduzione 
del nominativo della ditta 
rappresentata dal 
giocatore e 

visualizzazione dei marchi 
distintivi delle due ditte. 



22-256 


257 


258-274 


800-808 


Generazione del numero 
casuale X corrispondente 
alle varie situazioni da 
ricreare, salto alla routine 
di visualizzazione dei dati 
che riguardano la 
produzione e richiesta dei 
dati relativi al costo 
unitario ed al numero di 
confezioni prodotte. 

Con questa linea, in base 
alla variabile X, il 
programma salta alle 
routines che identificano i 
vari periodi. 

Visualizzazione dei valori 
riguardanti I parametri e 
profitto cumulativo per 
ogni mese. 

Routine di elaborazione 
dei dati corrispondente 
all’aumento delle vendite. 
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850-858 Routine utilizzata nel caso 


di calo delle vendite e nel 

gioco. 

caso del periodo 

8000-8004 Questa routine disegna 

invernale. 

con i caratteri semigrafici 

900-908 Routine per le condizioni 

disponibili sulla tastiera, il 

di andamento normale. 

bicchiere e la bevanda 

1000-1013 Routine richiamata ad 

frizzante al suo interno. 

ogni fine gioco ovvero 

8100-8101 Ritardo per la lettura delle 

dopo ogni arco di 6 mesi. 

istruzioni, svuota 

2000-2018 Routine di visualizzazione 

gradualmente il bicchiere. 

i dei dati riguardanti i costi, 

8200-8201 Effetto di lampeggio 

i prezzi ed i riscontri. 

colorato della cornice 

3000-3003 Con questa routine il 

dello schermo prima della 

computer carica i dati 

visualizzazione del 

corrispondenti al proprio 

periodo in cui si svolge il 

gioco. 

gioco. 

4000-4015 Visualizzazione del 

9000-9009 Routine che stampa sullo 

marchio corrispondente 

schermo le scritte 

alla ditta vincitrice e 

i f corrispondenti ai dati 

richiesta per una 

visualizzati dalla routine 

eventuale ripetizione del 

delle linee 2000-2018. 


r 


0 REM ♦♦♦:****>:*r*****#*4^ìM#******#M 

1 REM * COMMODORE 16 ♦ 

2 REM * DRINK COMPHNV * 

3 REM * <C> 1985 M.T. * 

4 REM 

5 COLOR 4, ?,Z ‘COLOR 0,8/5=0=1 

6 N-0-L-0 : V0L8-PRINT ,l ^^nnnilIWll9MMMÌMMl5lill DRINK COMPANV "m" 

7 F0RT=1TO5000 : NEXTT : DIM M( 12 ) :GOSUB8000 

8 PRINT"filiJfl>MtìtìfllPli | lBlWM»lPlPl3EI IL 'MRNHGER' DI UNA DITTA CHE PRODU-CE APERITIVI,"; 

9 PRINT" IN COMPETIZIONE CON LA FRMOSISSIMA RIVALE POMMODORE' 16." 

10 PRINT H DEVI RIUSCIRE IN UN PERIODO DI 6 MESI A RISOLLEVARE LE SORTI DELL"AZIE 
NDA ! " 

11 OOSUB8100 

12 GOSUB8000 

13 PRINT " ■rttìWWHWlftWWflilI N QUESTO PERIODO. CON LE TUE DECISIONI Db TERMINERAI 

14 PRINT"L'ANDAMENTO DEL MERCATO." 

15 60SUB8100 

16 FORTUITO100'NEXTT:PRINT M OSUAL / E' IL NOME DELLA COMPAGNIA CHE 

17 INPUT"RAPPRESENTI " > Z$ 

13 PRINT"I CONTENDENTI ■" 

19 print" mm*mmm****m***w' zt « ■" 

20 PRINT ,, (!lP>»*»MMMFnMMnDORE x 16" 

21 FORT = 1TO1000 : NEXTT •' PR I NT " ri" : 

22 IFC>*7THENST0P 

100 PRINT" W>DOHI)II«lfM«Bmii>>WM»ia MESE ";C; 

HO FORTUITO1000:NEXTT 
120 X=INT(RND <1> *4) +1 

130 IFX*lTHENPRINT"fll«PM«iMf!mtìMPW*'J»»»>»»*»l AUMENTO DELLE VENDITE ■" 

140 IFX=2THENPRITJT ,, ^pIpM«»M('WpWM('Wp]:4*»»ì»*ì»*| PERIODO INVERNALE ■" 

150 IFX=3THENPRINT"S!I!IpW«pIp1pWW»WPWW»»ÌMÌ»Ì»H CALO NELLE VENDITE ■" 

160 IFX=4THENPRINT "»•»»»! ANDAMENTO NORMALI• ■" 

170 GOSUB8200 
180 PRINT"n":GOSUE9000 
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190 PRINT"3«tìW»»MMMM« M • Z$ 

195 PRI NT *' iPK'JrlPXF»ir pj 1 ■ 

200 PR IN T " C0HFE21 OH I PRODOTTE " ; •* 

21 et INPUT"MfìX 10 " j B$ : B=VfìL < D$ > 

212 IFD>10ORDC1THENPRINT" T' * GOTO195 

215 PR I NT " B 

220 V=0 

230 V=D*1000 

240 PRINT"j**»MMM»»ÌM*MMM**M*Ì»irV 

251 T=V+4000 

252 PRINr'MWMMMMMMiMMiMWWMMW f 

253 FRI NT" ^9lfINf*ìi»WslPlfIflPZBjPWPlPlN»JPlPlPi ' ' 

254 INPUT "COSTO CONFEZIONE MfìX 10000*'; E. * 

255 E=VfìUE$> : IFE>10000ORK1 THENPR INT* 1 !" : G0T0253 

256 pr i NT e 

257 OH X GGSUE 800 .• 850 .* 858.. 900 

258 por i=i to i ©me • nexti * pr i nt " 

il 

259 IFB<STHENS*D 

260 PR I NT " S 

261 U»S#E 

262 PR I NT 11 «mMIIIMMMIMMWMBMIMr W 

263 PR 1 NT M W- T 

264 FORT=1TO3000 : NEXTT 

265 PR I NT " 73" : N*N+ < W-T > 

266 PR I NT " SPMifcMMWMMMrZT 

267 PRINT"m«i!W»M»FROFITTiJ CUMULATIVO" ; N 

268 FORT-1T03000•NEXTT 

269 PRINT" n" :GOSUB2000 

270 GOSUB1007 
971 r=r+i 

272 IFC=7THEN1000 

273 FORTUITO1800 : NEXTT:G0T02I 

274 STOP 

800 60Si IB3800 

801 G*INT <RND(1)#6>+l 

802 PRINT"SPREZZO POMMOBORE'",M<G> 

803 PRINT"IL TUO PREZZO M ;E 

804 IFE<M < Q)THENS=10 : P=6 

805 IFE>M<Q)THENP-10 : S=6 

806 iPE-M(Q> THENS=8 : P=3 

807 FORT-1TO1000 :NEXTT 

308 RETURN 

350 GOSUB3000 

851 Q-1NT <RNDU >#6> +6 

352 PR1NT" A PREZZO POMMOBORE 7 ";M<Q) 

853 PRINT"IL TUO PREZZO ";E 

354 IFECM< Q > THENS=4:P=0 

855 IFE>M < Q > THENP=4 : S^O 

856 IFE=M<G>THENP=2 : S=2 

857 FORT»1TO1000 : NEXTT 

858 RETURN 

900 GOSUB3000 

901 0*INT< RND <1>^12) + 1 

902 PR I NT " BREZZO POMMOBORE x " ; M < Q > 

903 PRINT"IL TUO PREZZO ";E 

904 IFE<M<Q>THENS=8 : P=4 

905 IFE>n<G>THENP=8 ; S=4 

906 IFE=M < Q)THENS=6 : P»6 

907 FORT=ITO1000-NEXTT 

908 RETURN 
1000 PRINT"7}*' 
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1007 

1 008 
1 00*3 
1010 
1011 
1012 
1013 
2000 
2001 
2002 

2003 

2004 

2Ù05 

2fui(£ 


,‘HH, 

2008 
2003 
2010 
2011 
2012 

2013 

2014 

2015 

2016 
2Ù17 
20 1 8 
3000 
3O0 1 

3002 

30O7 

4000 
4005 
4 010 

4011 

4012 

4013 

4014 


3000 
800 l 
8002 

8003 

8004 
8100 
8101 
3200 
82Ù1 

9000 


9002 

9003 

9004 

9005 

9006 

9007 
9003 
9009 


V0L8 : SOUND 1 .< 770 .• 60 : SOUND 1.. 854.60 : SOUND t .• 798 60 

PPINT N mMMÌ0MéMnil ORME OVER ■" 

S0UND2 .• 770.. 50 : S0UND2 • 854,50 • S0UND2', 798 , 50 : S0UND2 • 810, 50 : S0UND2,834,60 
V ORI=0TO25 ; PRINT " SCI : NEXT1 

PRINT"ISULTRT1 FINRLI " 

pr i nt M atropi »m m r, zs ; " M , n 

PR I NT " SBMMFQMMODORE - ", L 

IFC=7THEN4O00 

RETURN 

OOSUB9000 

PR I NT " ■" : I FX= 1 THENG=8 

IFX=2ORX=3THENG=0 

IFX=4THENG=6 

H=INT <RND<1)#G)+4 

£=A*100O 

F=£+4000 

IFA<PTHENP=A 

D-P*M<G> 

R=D-F 

L-L+R r- 

PR I NT 11 A 

PRINT " E: 

PR 1 NT " E 

PR I NT " clIMMIMMIMIIIMMIIMmir M< 9 
PRINT M «»»»»Ì»ft»»»>»»»»Ì»M»ÌÌi»i»»»irP 

PRi NT " D 

PR I NT 11 R 

FORT=1T03000 : NEXTT•RETURN 
DRTR3000^ 4000.. 5O00.- 6000 > S00U ^ 10000 
DRTR1850.. 2250 ^ 27503750 .• 4500 .* 5500 
F ORQ= ì TO1 2 ■ RE RDM •: Q > ■' NEK TQ 
RESTORE•RETURN 

IFN3 LTHENPRI NT " H2Ìi?lPW?lPWPl?Ii®!W*rW*!>>>PÌ>Ì*ÌPÌHSI HRI VINTO mi •» ' 

IFL3NTHENPRINT "LR POMMODORE ' HH VINTO 1 ■m‘ i 
FOR T= 1T R4000 •• NEXTT 

PRINT 11 Jd»»MÌ»rvTJOI GIOCARE ANCORA <S/N> ?" 

GETC* : IFXT=""THEN4012 
I FXt •= " S " THENRUN 
I FX $=" N " THENPRI NT " .Ti " : END 
GOT04012 

FRI NT "TE" ^ F0RI = 1T07 : PRINT"|ipÌiPMMÌPM "SPC^.B,*" I" ; NEXTI 

pr i n t " cfpjfiPMcmoM »»»»»»»»in ^ » zr ■" 

PRINT M W' : F0RR-2T07 
F- , RINT"-«MiM»M»Mia ^ 0 ■" : NEXTR 

RETURN 

PRINT"®W" • F0RR=2T0? ; PRINT "IMHMMMHI " : FORT=1TU3U0 • NEXTT, R 

RETURN 

FORG= 1 TO 1R • FORF= 1T 016 •' C0L0R4, F, 5 
FORT=1TO10 ; NEXT T,F,0 : RETURN 
PR I NT "MESE " ; C; "Il ■" 

PRINT"IHa CONFEZIONI PRODOTTE ■" 

PRINT M *»»I3 COSTI VARIABILI ■" 

PRINT M l»Ha COSTI FISSI ■ # 4000" 

PRINT")Mia COSTI TOTALI ■" 

PRINT'*fMia PREZZO/CONFEZ IONE ■" 

PRINT"f>»ia CONFEZIONI VENDUTE ■" 

PF:INT" ciiia RISCONTRI 
PRINT'VPBWS PROFITTI E PERDITE ■" 

FORA-1T02 : FRINÌ" :4. " • NEXTR : RETURN 


READY. 


OL 

tO 
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APPUNTAMENTI 

Sebbene nelle note introduttive del 
programma sia indicato per il solo ’64, ìin 
realtà esso funziona perfettamente con 
tutti i computers Commodore provvisti di 
stampante e fornisce delle utili tabelle 
pro-memoria per gli appuntamenti 
settimanali. 

Dopo aver inserito la data iniziale, 
facendo attenzione che ad essa 
corrisponda una Domenica, il computer 
elabora e suddivide i dati riguardanti i 
giorni della settimana e le date ad essi 
corrispondenti. 

L’output avviene su stampante e fornisce 
una tabella indicante il periodo preso in 
considerazione, i giorni della settimana e 
le ore di ogni giorno per un totale dì 12 
nell’arco compreso tra le ore 8:00 e le 


20:00 indicate anch’esse per motivi 
pratici con la dicitura 8:00. 

Alla fine della stampa appare un piccolo 
menù che permette di scegliere tra una 
ripetizione delia stampa con le stesse 
date o con date diverse, nel qualcaso 
bisogna inserire le nuove, ed infine 
l’opzione che permette di terminare le 
procedure. 

Il programma è molto semplice e 
permette di valutare praticamente le 
possibilità offerte dalla stampante, 
peraltro documentate dall’illustrazione di 
una scheda tipo, ottenuta con il 
programma. 

Non ci sono routines particolarmente 
complicate o interessanti e proprio per 
questa caratteristica il programma può 
essere adattato a computers di marche 
diverse e stampanti diverse. 



LIST ha cambiato >cdc. 


Il rt D itro nuo •„* d i o d i r* i ECd 4' 



TEL.: ne / ESÌSTE 
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0 REM ** RPPUNTRMENTI SETTIMANALI 

1 REM ** 

2 REM #* CBN 64 + STAMPANTE 

3 REM ♦♦ 

4 REM ** .LIST 198*; 

5 REM 

6 REM 

10 GOSUB1000 

25 PRÌNTSci, '1IIIIIBPPIINTRME NTI '* : PRINT"! 
«• * 

30 FORDE=1T02500 :NEXT 

120 PRINTSC*; IMMI INSERIRE DRTR INIZIfi 
LE : M" 

121 PRINT' 1IIIIIKINIZIRRE CON DOMENICA)" 


122 
125 
130 


INPIJT MESE, DRTR > * * ; MOf, SD 

IFLEN< MOT>>=3ANDSD<31THEN180 
PRINTSCT;"SWOME DEL MESE RLMENO DI 


• • 


135 PRINT"TRE LETTERE. *5 :PRINT" DRTR IN 
IZIRLE *5 

140 PRINT"INFERIORE R 32." 

: POR DE*1T02000 :NEXT 
145 PRINTRT 

150 FORDE-1T02000 :NEXT: GOTO120 

ISO CH*=LEFT*<M0$,3):IFCHT="FEB"THENGOSU 

B940 

182 FORX*iT036STEP3 

: IFCHTOMIDT < M4T, X, 3 ) THENNEXT 

183 IFCHT=MI m <M4$.X,3>THEN190 

185 PRINTSCT; "PMHTIPO DI MESE ?":FOR DE 
=ITO1200:NEXT 

187 PRI NTRT: FORDE* 1TO1200 : NEXT GOTO 120 

190 ' *' 1SUB405 : ED=SD ♦ 6 

2O0 IFED>ML'THENGOSUB500 : GOTO220 

210 M5$=CHf 

220 PR I NT ’ 73* ' : G0SUB550 : OPEN 1,4 

225 PRINT# 1..CHR T<14>; "SETTIMONA DHL*5SD 

;CH$;" RL:";ED;M5$;CHR$<15) 

230 PRINT#1,A$; 

235 FORX= 1T07 : PR I NT # 1.. B$+B$ ; : NEXT 
240 PRINT#1,B*+C$ 

245 FORX=0TO7*•READZT 

: PRINT#1 tE$+Z$+Fti -NEXT 
250 PRINT#1,Gf:GOSUB600 
260 FLRG=0 FORX-0TO24:READHR* 

270 PRINT#1,G*+" "+HRT+" 

275 FORS=0TO6:PRINT#1, 


• « 


• • 


; :NEXT 


280 

■’iOt 

285 
290 
300 
310 
32 ti 
350 
360 
370 
N>" 

-» “7 .t 

•2* i 4 

375 


PRINT#1,G* 

IFHR$="8:00"THENFLRG=FLRG+1 
: IFFLRG=2THEN290 
GOSUB600 
NEXT 

PRINT#1.Kt‘ 

FORX* 1T07 : PR I NT# 1, BT+MT; •* NEXT 
F*RINT#1 , BT+LT 

FORX=1T05:PRINT#1,CHR$<10>:NEXT 
PRINT#1 * CLOSE1 

PRINTSCT;" STRMPO RNCORR...? 

FORDE* 1T0200 : NEXT : PR I NT * 73* * 

FORDE = 1TO2£i0 : NEXT 
GETNT 


,• / 
\ J t 


376 I FNT= * *S ‘THENNT*"" : G0T0985 
380 IFNT="N"THENNT="":G0T0399 

384 GGTO370 

385 PRINTSCT; "PMiLE OPZIONI SONO:" 

387 PRINT ‘ DSWBPiMWl. STRMPR CON LE STESSE 
DRTE. " 

389 PRINT":p«»M»M2.CRMBIR DRTR. " PRINT" 

.FINE." 

.390 GETNT : IFN$=""THEN390 

395 IFN*="1"THENRESTORE:NT="":G0T0220 

396 IFNT="2"THENRESTORE:NT="":ML=0:SD=0: 
ED=0 ; GOTO120 

IFNT="3"THEN399 
GOT0390 
PR I NT * ’H" : END 

IFCH$=M1TTHENML =LV : RETURN 
F ORX=1TO13STEP3 

IFMIDT<M2$,X,3>=CHTTHENML=30: RETURN 
NEXT 

FORX=1T022STEP3 

IF MI Ut< M3$.X,3>=CHf THENML=31 : RETURN 


OQ7 

OQQ 

•—* *J 

■“» 

-» 




405 
410 
420 
4 30 
440 
450 


460 NEXT RETURN 
500 E D=6-<ML-SD> 

510 FORX-1TO40STEP3 

520 IFMID t < mt, X, 3> = CHf THENM5 1 =MID*<M4T, 
X+3,3):RETURN 
530 NEXT:RETURN 

550 PRINTSCT ;" lìlSPIONTROLLO STR 

MPRNTE" 

555 PRINT" a O.K.? <S) 

■4" 

560 GETNT : IFN$O"S"THEN560 

570 PR INT*73" : N$= "" : RETURN 

600 PRINT#1 t Hf;:FORR=0TO6:PRINT#1,B$+J$; 

:NEXT:PRINT#1, Bt+ 1 1 : RETURN 

900 DRTRTiRR", "DOM‘5 "LUN'5 "MRR", "MER‘5 "G 

IO"."VEN‘5 "SRB" 


910 DRTR" 8:00".." 8 
"10:00","10:30*5 "11 
920 DRTR"12 : 30*5 " 1 
" 2:30*'..*’ 3 : 00‘5" 3 
930 DRTR" 5 : 00 * 5 * * 5 


• • 


7 : 00*5 " 7:30*5 " 8:00" 


30 

00 

00 

30 

30 


1 • « • 

; 

• • 11 

1 

m 

% • • • 

P 

• • • • 

w 

• • 1 • 


9 : 00*5" 9:30", 
11 : 30"/"MRTT." 

1 : 30", " 2:00", 

4:00"," 4:30" 
6:00'*," 6:30*5 


940 PRINTSCt; : INPUT"PMME x RNNO BISEST IL 

E(S/N)";N$ 

945 IFNt = **S*’THENLV=29 : N*="" : G0T0955 

950 NT="" : LV=28 

955 FORDE*1TO450:NEXT: RETURN 

1000 sc*=*’nawwPimww’* 

1020 h t = ' * r" : B t =* *-' * : c$=' V * : D*=* V * : E 

^=•*1 ••:FT=" ": GT=" I" : H$=" K* 

1030 IT=*'H": .TT="4":KT=" L " : LT=" J " : MT*"^-" 
1050 M0T="": MIT="FEB":M2$*"flPRGIUSETN0V" 
:M3$= * ’GENMRRMRGL UGRGOOTTDIC" 

1070 Rf="clO»Ì*»F , REG0 INSERIRE RNCORR I 
URTI al" 

1080 M4*’GENFE BMRRRF'RMRGG IULUGRGOSETOTT 
NOVDICGEN" 

1090 RETURN 
RERDV. 


Pagine Speciali di LIST 


27 


















































































h 


h 


h 


h 




Ir. 


TIMRNfl URL 



OR 



T 


4 


H 


|- 

( S : 30 

^ <111 | I l ■! ' W. I I L I 

I 9 • 00 


J 

4 


I 

4 

I 

+ 


I — 

I 9-30 I 


- ». 

10-00 I 


- h 

I 10-30 I 
f - h 


I 11:00 I 

---f 


| --- 

I 11 30 l 
-(. 



4 


i 1 



+ 


I- — ■ 

I 1 : 30 I 

- f. 


iù 


I- 

i 2 • 30 

h- 1 


f 

4 


-—« * 




i 

+ 

( 

4 


I 3 = 30 I 
h . ■■ ■ .. ^ 


I 4 : 39 f 

I- 


- 

I 5 : 00 I 


+ 


I 5 : 30 I 

-f 


j.- 

t • Jt‘10 | 


| - 

I 6■30 I 


f- 


4 





I L.IJH ! rifìR I 



4 


4 


- 4 


I fì 10 

1 "fefl'-4 


4 


4 

I 


4 


T 

I 

4 

I 

4 


4 


4 


v ««#■* 


■ ■ " 1 » ■ 


f" 


? : 30 I 

- f- 


I 8 00 I 
I - 1 


4 


I 

I 

*4- 


4 


4 


4 


4 


4 


I 


4 


4 


4 




4 


4 


4- 


4 


HI ri*** 


4 




4 


-h- 



-1- 

-4 

12=30 1 

1 

l 

1 

1 


t - 


, 4. 4— t 


4- 
i 


4 


4 


I 

4 

f 

4 


4- 

I 

4 

I 

-4- 


f 


f 


f 




f 


i 


4 


I 

"f 

I 


4- 


I 

I 


“4 


4 


t I 

■I « «Aat* mmmr ■ ■ li I j , v §+* — 




^ - 


' *■ !■ # 


VEH I SflB I 

-- —4 


4 


4 


4 


4 


4 


4 


4 


4 


4 


4 


-4 


4 


4 


4 


4 


I 

4 


4 


I 

! 

| 

-4- 

I 


4 


I 

4 

I 

4 


4 


4 


4 




4 


4 


4— 


I 

4- 


4 


-4 






4 


4- 


4 


I 

J— 

J 


I 

+ 

- L. 


* i«m«H 


4 


4 


4 


4 


4 


4 




J. 


-♦ iti 


H 


•J 


H 




*4 


H 


H 


1 


4 


4 


1 

4 00 1 


1 

1 

\ 

I 

1 

1 


4~ 

-1— 



-4- 




- 1 — 

■ " ■■>' — ^ 


I 




1 

7 : 00 1 

1 

! 

1 

i 

1 

! 

1- 

- i — 


-4- 

- 4— 

-:- 1 - 

-1- 

-- | - 


■1 




28 


Pagine Speciali di LIST 

































































































































































































































































































































SATEL 




Il programma permette di valutare il 
passaggio di un satellite artificiale in 
orbita intorno al nostro pianeta. 

Il punto in cui tale valutazione è più 
conveniente, si trova in corrispondenza 


dell’intersezione del piano equatoriale 
con l’orbita del satellite nel suo 
movimento in direzione Nord. 
Nell’esecuzione, il programma richiede il 
numero di passaggi da calcolare e i dati 
riguardanti un passaggio conosciuto. 
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1 REM S H T E L 

190 PRINT"«OP PASSAGGI EGUATO 

2 REM 

RIRLIMW" 

3‘ REM LIST 

191 L1-L1#R0 ! 

4 REM 

192 INPUT"->*;N1 | 

5 REM<C>1985 MAX.TI. 

193 PRINT’WNl | 

6 REM 

194 FORT = 1T03000 :NEXTT 

10 PRINT'TX"; : PGKE36879•8 : PRINTCHRfC14) ; 

197 NZ=0 | 


210 PRINT’ TI** | 

30 PRINT"*W"TABC6>"Sl 8 R T E L " 

250 J1«367*V2-1NT <7* (( V2+1NT(< M2+9> / 12>) 1 

35 PRINT "«TOT 

74 >> +1NT <275*M2/9 > +D2+1721014 

40 FORT* 1TO150«:NEXT-PRIMT** al CALCOLO»"=P 

260 A1=7.27220451E-5*T1 

PINI" DEI«" 

T1 /*3600 

45 PRIMI" PASSAGG IM" : PR I NT * **ID I : PR I NT ' ‘Il 

268 A3=INT < A2) 

SATELLITI»" :PRINT"I*RTI FI CI ALI M" 

270 À4=60* (. A2-R3 ) 

50 FORT *1TO1500 * NEXTT 1 

273 A5=INT < A4) 

55 PRINT* W; :FORC«0TO21 : PRINT":*» :NEX 

276 R6=INT * 60#(A4—A5)+,5) 

TC , 

310 FORI*ITOMI 

56 FGRC* ITO 1 ? : PR I NT 1 * 5MI * * ; SPC < 20 > ; * '’ * * ; : NE 

! 320 L1=L1+A1 

XT 

330 IFLl>2*uTHENLl=Ll-2#ii 

57 FORG«0TO21 :PRINT M *t .* NEXTC : PRT NT 

340 HI=H1+A3 

58 print"»iw*mmi . . .mi 

343 M1= M1+ A5 

59 PRINT’IIHIIMMI.MI"; 

346 S1=S1+A6 

60 PRINT"M»M. Iti. . , #. ,,|!||r; 

349 IFS1>«60THENM1*M141 :S1-S1-60 

61 PR I NT * IMMÌMMI.,. . . .MI"; 

360 IF M1>=60 THEHH1=H1 +1 :M1=M1-60 

62 PRINT*'IIIHMMI. . .1*1* 

370 IFH 1 >=24HNDM 1 >0THEN.J 1 = J1 + 1 :Hl=Hl-24 

63 PRINT"MM*M»MI.Ili ; 

380 GOSUBI010 


390 GOSUB2010 

65 PPIHT'IIMIIMMI.. • . * .MI *; 

395 H*="".'GETfl*: IFHS=""THEN395 

66 PRINT 'IWMiMftl. . . * .MI** 

400 PRINT":]":NEXTI 

6? PRINT' MiiKMMI..*. .* .. Mi ; 

420 PRINT*73" 


430 PRINT*'ALTRO SATELLITE ?" : PRINT" <3/N 


>** 

70 PRINT 

434 GETX$:IFX*=""THEN434 

140 R0=tr/180 

435 IFX*="S"THENCLR:GOTO140 1 

141 INPUT ’ WSRTELLITE 1 ";NT 

440 PRINT"WALTRO PASSAGGIO ?":PRINT" (S7 

142 PRINT"n««'NT 

N)" 

143 FORT =1101500 : NEXT 

450 OETX#:IFX$«""THEN450 

145 PRIHT’TMWflW" 

455 I FX$=**S * ‘THENPPINT " : GOTO 168 

150 PRINT* “ERIODO ORBITALE" 

460 PRINT‘73"‘END 

155 INPUT" fili MUTI TI 

1010 A»INT < CJ1-1867216.25 >736524.25 > 

156 PRINT* :«"T1 M »" 

1014 R=*.J1 + A-1 NT < H74 >+1 

157 OOSUB3010 

1020 B=A+1524 

160 PRINTCHR$<14)"DRTR DI UN PRSSRGOIO 

1023 C=INT<<B-122.1)7865.25) 

CONOSCIUTO" 

1025 D=INT(365.25#C) 

161 T1=T1*60 

1030 E*INTC<B-D>730.6001> 

162 I NPUT * ‘ItO I ORNO " ; D2 

1032 D2=B-D-INTC30.6001#E> 

163 IFD2>310RD2<1THEN162 

1035 M2=E-13 

166 INPUT ,, XMESE ,, ;M2 

1040 IFE<13.5THENM2=E-1 

167 IFM2>120RM2<1THEN166 

1050 IFV2=C-4715RNBM2>2.5THENV2=C-4715 

169 INPUT"«ANNO";V2 

1060 RETURN 

170 PRINT" m *D2" "M2" **V2:G0SUB3010 

2010 PRlNTCHRt<142)" "N$ : PRINT"- 

171 PRINT 'mWCRR CAMPIONE «1 -— 

-" : PRINT’VHDATAM": PRINTB 

/0%“ l««" 

2TAB < 3 >M2TAB(6)V2 

173 INPUT 1 'r'JHI 

2011 PRINT:PRINT"ORA W" 

174 IFH1>230RH1<0THEN173 

2012 PRINTH1TRF<2)M1TAB<5)S1 1 

176 INPUT"*f\".;MI 

2813 PR I NT * * «LONG ITUDI NEW* * ! 

177 IFM1>59URM1G0THEN176 

2814 PRINTL17R0:PRINT")#- 

j 179 INPUTSI 

* i 

180 IFS1>590RS1C0THEN179 

2015 NZ=NZ+1:PRINT"««PREMI UN TASTO" 

(182 PRTNT"««"H1" "MI" "ST UN":GOSUB3010 

2020 RETURN 

183 FRI NT "LONGITUDINE OVFSTW 

3010 FORT=1TO1000 :NEXTT:PPINT '*«W* * 

184 INPUT"GRADI";LI 

3020 RETURN 

185 PRINT * ' m' L1^ GOSUB3010 1 

READY. 
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di MAX. TI. 



ABS (Absolute) assoluto- Indica il 

valore assoluto di un numero. Il 
risultato è sempre positivo. 

AND Operatore logico- Viene usato 

spesso in congiunzione a 
IF...THEN. Indica la 
concomitanza di due situazioni 
perché ne accada una terza. 

ASC (American Standard Code)- 

Con questa istruzione è , ~ 
possibile conoscere il codice di 
un carattere secondo lo 
standard ASCII largamente 
diffuso e usato dalla maggior 
parte dei computers anche se di 
diversa produzione e origine. 

ATN Arcotangente- Indica l’angolo la 

cui tangente è l’argomento 
dell’istruzione. 

BEEP Istruzione sonora- Viene usata 

per l'emissione di un tono per 
un breve periodo. 

BREAK Istruzione che arresta 

l’esecuzione di un programma. 
(Può essere sostituito con 
STOP). 

CLR (Clear)- Svolge una duplice 

funzione: permette di annullare 
tutte le variabili al momento 
dimensionate oppure nella 
forma seguente svolge la 
funzione di pulizia dello 
schermo. 

CLS (Clear screen)- Pulizia schermo. 

CON T (Continue)- Permette di 

riprendere l’esecuzione di un 
programma interrotto con 
BREAK. . 

CMD (CoManD)- Con questo 

comando è possibile inviare i 
dati o le istruzioni invece che 
verso lo schermo a periferiche 
diverse: stampante, ecc. 


CLOSE Istruzione che permette di 

chiudere un FILE di dati aperto 
con l’istruzione OPEN. 

COS Calcola il coseno dell’angolo 

indicato nell’istruzione. 

CHR$ Istruzione opposta ad ASC 

permette di visualizzare il 
carattere corrispondente ad un 
determinato codice ASCII. 

DATA Istruzione che in unione a READ 

e RESTORE offre la possibilità 
di assegnare il valore delle 
variabili direttamente da 
programma. 

DEF FN (DEFinisci FuNzione)- Con 

questo comando è possibile 
definire calcoli complessi 
chiamandoli con un nome ed 
evitando di dover riscrivere la 
formula ogni volta che occorre 
nel corso del programma. 

DIM (DIMensionamento matrici)- In 

alcuni casi, quando i dati riferiti 
ad una variabile sono parecchi 
e di diverso significato si ricorre 
all’uso delle matrici che 
facilitano molto il lavoro e sono 
rappresentabili come delle 
tabelle a più dimensioni. Per 
poter usare le matrici è 
indispensabile dimensionarle 
indicando il numero degli 
elementi che le compongono e 
il nome della matrice. 

f ND Questa istruzione è facoltativa 

nel caso venga posta nell’ultima 
linea di programma ed indica la 
fine del programma stesso. 

EXP Calcola la potenza del logaritmo 

naturale in base E (esponente) 
esprimendo il valore della 
costante matematica 
E(2.71827183) elevato a X, cioè 
l’argomento dell’istruzione. 
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